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BOUNDARY-FITTED CURVILINEAR COORDINATE SYSTEMS 
FOR SOLUTION OF PARTIAL DIFFERENTIAL EQUATIONS 
ON FIELDS CONTAINING ANY NUMBER OF ARBITRARY TWO-DIMENSIONAL BODIES 

§ 

By Joe F. Thompson, t Frank C. Thames,* and C. Wayne Mas tin 

Mississippi State University 
Mississippi State, Mississippi 39762 

Research Sponsored by NASA Langley Research Center, Grant NGR 25-001-055 


SUMMARY 


A method for automatic numerical generation of a general curvilinear 
coordinate system with coordinate lines coincident with all boundaries of 
a general multi-connected, two-dimensional region containing any number of 
arbitrarily shaped bodies is presented. No restrictions are placed on the 
shape of the boundaries, which may even be time-dependent, and the approach 
is not restricted in principle to two dimensions. With this procedure the 
numerical solution of a partial differential system may be done on a fixed 
rectangular field with a square mesh with no interpolation required regard- 
less of the shape of the physical boundaries, regardless of the spacing of 
the curvilinear coordinate lines in the physical field, and regardless of 
the movement of the coordinate system in the physical plane. A number of 
examples of coordinate systems and application thereof to the solution of 
partial differential equations are given. The FORTRAN computer program and 
instructions for use are included. 

I. INTRODUCTION 

There arises in all fields concerned with the numerical solution of 
partial differential equations the need for accurate numerical representa- 
tion of boundary conditions. Such representation is best accomplished when 
the boundary is such that it is coincident with some coordinate line, for 
then the boundary can be made to pass through the points of a finite dif- 
ference grid constructed on the coordinate lines; hence the choice of 
cylindrical coordinates for circular boundaries, elliptic coordinates for 
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elliptical boundaries, etc* Finite difference expressions at, and adjacent 
to, the boundary may then be applied using only grid points on the inter- 
sections of coordinate lines, without the need for any interpolation between 
points of the grid. 

The avoidance of interpolation is particularly important for boundaries 
with strong curvature or slope discontinuities, both of which are common in 
physical applications. Likewise, interpolation between grid points not 
coincident with the boundaries is particularly inaccurate with differential 
systems that produce large gradients in the vicinity of the boundaries, and 
the character of the solution may be significantly altered in such cases. 

In most partial differential systems the boundary conditions are the dominant 
influence on the character of the solution, and the use of grid points not 
coincident with the boundaries thus places the most inaccurate difference 
representation in precisely the region of greatest sensitivity. The genera- 
tion of a curvilinear coordinate system with coordinate lines coincident with 
all boundaries (herein called a "boundary-fitted coordinate system" for pur- 
poses of identification) is thus an essential part of a general numerical solu- 
tion of a partial differential system. 

A general method of generating boundary-fitted coordinate systems is to 
let the curvilinear coordinates be solutions of an elliptic partial differen- 
tial system in the physical plane, with Dirichlet boundary conditions on all 
boundaries. One coordinate is specified to be constant on each of the bound- 
aries, and a monotonic variation of the other coordinate around each boundary 
is specified. Thus, there is a coordinate line coincident with each boundary. 
The procedure is not restricted to two dimensions, allows the coordinate lines 
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to be concentrated as desired, and is applicable to all multi-connected regions 
(and thus to fields containing any number of arbitrarily shaped bodies) . 

The coordinate system so generated is not necessarily orthogonal, but 
orthogonality is not required, and its lack only requires that the partial 
differential system to be solved on the coordinate system when generated 
must be transformed directly through implicit partial differentiation rather 
than by use of the scale factors and differential operators developed for 
orthogonal curvilinear systems. An orthogonal system cannot be achieved 
with aribtrary spacing of the coordinate lines, and the capability for such 
concentration of coordinate lines is of more importance than orthogonality. 

This general idea has been applied previously to two-dimensional regions 
interior to a closed boundary (simply-connected regions) by Winslow [1], 

Barfield [2], Chu [3], Amsden and Hirt [4], and Godunov and Prokopov [5]. 
Winslow [1] and Chu [3] took the transformed coordinates to be solutions of 
Laplace’s equation in the physical plane which, as is shown in the next sec- 
tion, makes the physical cartesian coordinates solutions of a quasi-linear 
elliptic system in the transformed plane. Barfield [2] and Amsden and Hirt 
[4] reversed the procedure, taking the physical coordinates to be solutions in 
the transformed plane of a linear elliptic system which consists of Laplace’s 
equation modified by a multiplicative constant on one term. This makes the 
transformed coordinates solutions of a quasi-linear elliptic system in the 
physical plane. Barfield also considered a hyperbolic system, but such a 
system cannot be used to treat general closed boundaries, since only elliptic 
systems allow specification of boundary conditions on the entirety of closed 
boundaries. Stadius [6] also used a hyperbolic system to generate a coordinate 
system for a doubly-connected region having parallel inner and outer boundaries. 



4 


With parallel boundaries it is only necessary to specify conditions on one of 
the boundaries, the location of the other boundary being free. The elliptic 
system, however, allows all boundaries to be specified as desired and thus has 
much greater flexibility. 

Amsden and Hirt [4] constructed the coordinate generation method by 
iterative weighted averaging of the values of the physical coordinates at 
fixed points in the transformed plane in terms of values at neighboring 
points. Although not stated as such, this procedure is precisely equivalent 
to solving Laplace’s equation, or modification thereof of the form noted above 
in Barfield [2], for the physical coordinates in the transformed plane by 
Gauss-Seidel iteration. Amsden and Hirt also allowed the boundary to move at 
each iteration, but this is simply equivalent to approaching the solution of 
the boundary-value problem through a succession of boundary-value problems 
converging to the problem of interest. In the approach of Godunov and Proko— 
pov [5] the elliptic system is quasi-linear in both the physical and transformed 
planes. These authors applied a second transformation to that used by Chu [3], 
the transformation functions of this latter transformation being chosen a 
priori to control the coordinate spacing. Though not stated as such, the over- 
all transformation may be shown to be generated by taking the transformed coor- 
dinates to be solutions in the physical plane of Laplace’s equation modified 
by the addition of a multiple of the square of the Jacobian, the multiplicative 
factors being a priori chosen functions of the physical coordinates. 

Meyder [7] generated an orthogonal curvilinear system by solving for the 
potential and "force” lines in a simply-connected region and taking these as 
the coordinate lines. This amounts to making the curvilinear coordinates 
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solutions of Laplace equations in the physical plane with Dirichlet boundary 
conditions (constant) on part of the boundary and Neumann boundary conditions 
(vanishing normal derivative) on the remainder. The solution for the coordinates 
was done, however, in the physical plane on a rectangular grid using interpola- 
tion at the curved boundaries, rather than in the transformed plane. 

Orthogonal curvilinear coordinates for multi-connected regions, including 
regions with two bodies, have been generated by Ives [8] using conformal mapping. 

Conformal mapping is a special case of the generation of coordinate systems 
by solving an elliptic boundary value problem, but is not extendable to 
three dimensions and is less flexible in the spacing of the coordinate lines. 

There have also been a number of transformations developed directly for 
special purposes without solving a partial differential system. One such 
approach is that of Gal-Chen and Somerville [9] for the treatment of an 
irregular boundary, such as mountaneous terrain, in a simply-connected region. 

In the present research, the technique of generating the transformed coor- 
dinates as solutions of an elliptic differential system in the physical plane 
has been applied to multi-connected regions with any number of arbitrarily 
shaped bodies (or holes). The elliptic equations for the coordinates are 
solved in finite difference approximation by SOR iteration. Procedures for 
controlling the coordinate system so that coordinate lines can be concentrated 
as desired have been developed. Present effort is confined to two dimensions 
in the interest of computer economy, but the technique is extendable in 
principle to three dimensions. The procedure is also applicable 



6 


to fields with time-dependent boundaries, one coordinate line remaining 
fixed to the moving boundary. Here the equations for the coordinates must be 
re-solved at each time step. The computational grid remains fixed in spite 

of the movement of the physical grid. 

Any partial differential system can be solved on the boundary-fitted 
coordinate system by transforming the set of partial differential equations 
of interest, and associated boundary conditions, to the curvilinear system. 

Ps shown in Appendix B that the equations do not change type, i.e. , 
elliptic, parabolic, hyperbolic, under the transformation.) Since the bound- 
ary-fitted coordinate system has coordinate lines coincident with the surface 
contours of all bodies present, all boundary conditions can be expressed at 
grid points, and normal derivatives on the bodies can be represented using 
only finite differences between grid points on coordinate lines, without 
need of any interpolation, even though the coordinate system is not orthogo- 
nal at the boundary. The transformed equations can then be approximated 
using finite difference expressions and solved numerically in the transformed 
plane. Thus, regardless of the shape of the physical boundaries, and regard- 
less of the spacing of the finite grid in the physical field, all computa- 
tions, both to generate the coordinate system and, subsequently, to solve the 
partial differential system of interest can be done on a rectangular field 
with a square mesh with no interpolation required on the boundaries. More- 
over, the physical boundaries may even be time-dependent without affecting 
the grid in the transformed region. 

The computer software utilized to generate the boundary-fitted coordi- 
nate system is independent of the set of partial differential equations to 
be solved on this system. For example, numerical solutions for inviscid 
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and viscous fluid flows have been obtained using this system (Ref. 10-14) . 

The partial differential equations governing these phenomena differ drasti- 
cally. However, for a given body geometry, the same boundary- fitted system 
generation program was used in both solutions. Another major advantage of 
using boundary-fitted coordinates is that the computer software generated to 
approximate the solution of a given set of partial differential equations is 
completely independent of the physical geometry of the problem. The coordi- 
nate systems for the wide variety of bodies Included in this report, for 
example, were all developed utilizing the same computer program. Finally, 

It is shown in Appendix C that physical integral conservation relations need 
not be lost in the transformed plane. 

This report presents a detailed development of the method for generation 
of boundary-fitted coordinate systems for general, multi-connected, two- 
dimensional regions. The basic doubly-connected region transformation is 
discussed in Section II in some detail. Extensions of the basic transforma- 
tion to multi-connected regions, contracted coordinate systems, and time- 
dependent systems are also discussed. The numerical techniques used to 
implement the method and a number of specific examples are presented in the 
Sections III and IV. Examples of application to the solution of partial 
differential equations are given in Section V. Finally, instructions for 
use and a listing of the FORTRAN program are given in Section VI. Various 
derivative relations used in the transformation of partial differential systems 
and program parameters used in the examples included are given in Appendix A. 

II. MATHEMATICAL DEVELOPMENT 
Preliminaries 

The general transformation from the physical plane [x,y] to the trans- 
formed plane [5,n] is given by the vector-valued function 





C(x,y) 

n 


n(x,y) 


The Jacobian matrix for this transformation is 



( 1 ) 


( 2 ) 


where the subscripts denote partial differentiation in the usual manner 
The inverse function or transformation of (1) is, if it exists. 


X 


x(5,n) 

y 


y(5.n) 


(3) 


The Jacobian matrix of (3) will be denoted by J2 and is given by 


J 


2 




(M 


The Jacobian determinant, or Jacobian as it is normally called, is 
then 


J = det(^l - - X^y^ (5) 

The Jacobian matrices, (2) and (4), are related by 

Jj^ - l^J-' (O 

which implies the relations 

Ex = Ey ■ "x - "y ' ■‘e'-' 


(7a,b,c,d) 



Partial derivatives are transformed as follows: 
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= ^ »y) / 9 (x,y) _ 

3(5, n) 3(5, n) ■ 


( 8 ) 


= j (^>f) / -3(x,y) ^ ^ "^11^5 ^5^n^ 

3(5, n) 3(5, n) ~ ^ 


(9) 


wher^ f Is some sufficiently differentiable function of x and y. Higher 
derivatives are obtained by repeated application of ( 8 ) and (9) . A com- 
prehensive set of transformed derivatives, operators, unit vectors, and 
other useful relations is given in Appendix A. 

Sufficient conditions for the transformation described above to exist 
are given by the inverse function theorem (Ref. 15 ). in particular, if 
the component functions of ( 1 ) are continuously differentiable at a point, 
say (x^, y^), and the Jacobian matrix ( 2 ) is nonsingular at (x , y ) then 
there exists a disk about (x^, y^) such that the inverse function ( 3 ) 
exists and ( 6 ) holds for all [x,y] in N^. It is readily apparent that the 
theorem guarantees existence only in a local fashion. For this reason com- 
ponent functions of ( 1 ) which possess even more desirable properties than 
those required by the inverse function theorem are sought. 

Since the basic idea of the present transformation is to let the com- 
ponent functions of ( 1 ) be solutions of an elliptic Dlrlchlet boundary value 
problem, an obvious choice is to require that 5 (x,y) and n(x,y) be either 
harmonic, subharmonic, or super harmonic . Harmonic functions have continuous 
derivatives of all orders. Moreover, harmonic functions obey a maximum 
principle, which states that the maximum and minimum values of the function 
must occur on the boundaries of the region D. Thus, since no extrema occur 
within D, the first derivatives of the function will not simultaneously 
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vanishes in D, and hence the Jacobian J will not be zero due to the presence 
of an extremum. (Note that this merely removes one condition which may cause 
the Jacobian to vanish.) Further, the maximum principle guarantees uniqueness 
of the coordinate functions 5(x,y) and n(x,y), (Ref. 16), and thus ensures 
that no overlapping of the boundaries will occur. Sub harmonic and super har- 
monic functions are also continuously differentiable and obey a maximum 
principle. (The maximum principle is not as strong for these functions as 
it is for harmonic functions.) A more general discussion of the mathematical 
properties of the transformation is given in [17]. 


Doubly-Connected Region 

Consider the transformation of a two-dimensional, doubly-connected 
region D bounded by two simple, closed, arbitrary contours onto a rectangular 
region D* as shown in Figure 1. (The basic transformation is discussed here 
assuming that the body contour and outer boundary are transformed, respec- 
tively, to the constant n-lines forming the bottom and top sides of the 
transformed region. The more general case of segmented body contours trans- 
forming to any side of the transformed region follows analogously and is 
discussed in later sections. The computer program allows the body contour (s) 
and outer boundary to be segmented and placed around the sides of the trans- 
formed plane in any manner desired.) Let map onto map onto 

onto r^*, and F^ onto F^* . For identification purposes region D will be 
referred to as the physical plane, D* as the transformed plane, and F^ as the 
body contour. Note that the transformed boundaries (F^^* and F 2 *) are made con- 
stant coordinate lines (p-lines) in the transformed plane. The contours F^ 
and F, which connect the contours F^ and F^ are coincident in the physical 
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plane and thus constitute re-entrant boundaries in the transformed plane. 

In view of the closing remarks of the previous sectior^ consider taking 
Laplace’s equation as the generating elliptic system. That is, let C(x,y) 
and n(x,y) be harmonic in D. Then 


C 

XX 


+ C. 


yy 


0 


n 

XX 


+ n. 


yy 


0 


with the Dlrichlet boundary conditions 


- 




X 

u.i' 

n 


r 

»— • 

t 


'c' 

II 

^2(x,y) 

n 


^2 


fx.y] e 


[x.y] e 


(10a) 

(10b) 


(10c) 


(lOd) 


where and are different constants (ri 2 > rij),and ?j^(x,y) and 
are specified monotonic functions on and T^, respectively, varying over 
the same range. The arbitrary curve joining and in the physical 
plane, which transforms to the right and left sides of the transformed plane, 
specifies a branch cut for the multiple-valued function 5(x,y). Thus, the 
values of the physical coordinate functions x(5,n) and y(5,n) are the same on 
Tg as on r^, and these functions and their derivatives are continuous from 
to r^. Therefore, boundary conditions are neither required nor allowed on 
Tj and (A graphic analog to the above ideas can be found in most com- 

plex variable texts where Riemann surfaces are discussed. For example, 
Levinson and Redheffer, Ref. 16.). 


see 
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Since it is desired to perform all numerical computations in the uni- 
form rectangular transformed plane, the dependent and independent variables 
must be interchanged in (10). Use of equation (A. 18) of Appendix A yields 
the coupled system 

^ 


where 


X 2 

+ y 2 

(lie) 

n 

n 



+ y^y 

(lid) 

C n 

^ n 


X 2 


(lie) 


with the transformed boundary conditions 

I , r ^ 

f2a.np' 


(Ilf) 


X 


g 2 ( C » n 2^ 

y 


g2(5»h2> 


(5,n2le ^2* 


dig) 


The functions fj^(C,hj^)> f 2 d>n-|^)> gj^(?>h 2 )> g 2 d>h 2 ) ®te specified by 

the known shape of the contours and and the specified distribution of 
5 thereon. As noted, boundary data are neither required nor allowed along 

the re-entrant boundaries and T^*. 

The system given by the equations of (11) is a quasi-linear elliptic 

system for the physical coordinate functions, x(C,h) and y(5>n), m the 
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transformed plane. Although this system is considerably more complex than 
that given by (10), the boundary conditions (llf,g) are specified on straight 
boundaries, and the coordinate sparing in the transformed plane is uniform. 

The boundary-fitted coordinate system generated by the solution to (11) has 
a constant ri“llne coincident with each boundary in the physical plane. The 
5=constant lines may be spaced as desired around the boundaries since the 
assignment of the ^“values to the [x,y] boundary points via the functions fj^, 
^ 2 * ^ 1 ’ ^2 (llfjg) is arbitrary. (Numerically the discrete boundary 

values [Xj^,yj^] are transformed to equi-spaced discrete ?j^-polnts on both 
boundaries.) Control of the radial spacing of the ri=constant lines and of 
the incidence angle of the ^=constant lines at the boundaries is accomplished 
by varying the generating elliptic system (i.e., the system of which C(x,y) 
and n(x,y) are solutions) as will be demonstrated in Section IV. As illus- 
trated in Figure 1, the left and right boundaries of the transformed plane 
are re-entrant boundaries, which implies that both solutions, x(C,ri) and 
y(5>n)> are required to be periodic in the region {[?,n]| - «> < ^ < oo^ 

^1 < n 

Multiply-Connected Region 

The basic ideas and procedures introduced in the preceding section 

can be extended to regions containing more than one body — that is, to general 

multi-connected or multi-body regions. One transformation for two bodies is 

Illustrated in Figure 2. The bodies are connected with one arbitrary cut, 

with an additional cut joining one of the body contours to the outer boundary. 

The physical plane contours T - F map respectively onto the contours F- * - 

o 1 

Fg* in the transformed plane. Note that the body defined by the union of 
and fg is split into two segments (F^* and T^*) , as is the cut Joining 
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this body and the one defined by contour The n-coordinate is the same 

for both of the bodies and cut between them. Conversely, the cut defined by 
and in the physical plane is taken as a C=constant line in the trans- 
formed plane as before for the single body case. The outer boundary contour 
maps onto the upper boundary in the [C»n] plane, becoming a constant 
n-line in the manner of the one-body transformation. In contrast to the one- 
body transformation, two re-entrant boundaries occur for this two-body trans- 
formation. The left and right vertical boundaries appear as 

before. In addition a horizontal re-entrant segment due to the coincidence 

of r„ and r, in the physical plane arises. The coordinate functions and the 
5 6 

derivatives thereof are thus continuous across these re-entrant boundaries . 

The boundary-fitted coordinates for the multi-body transformations are 
again determined by the solution of the set of equations (11) with the added 
boundary conditions 


X 



hj^(5,n^) 

y 



L J 


L J 




X 

— 


y 


q2(5,nj^) 


[C,n^] e r^* 


[5,n^] e Fg* 


(llh) 


(Hi) 


to define the additional body. Note that boundary conditions cannot be 

specified along the re-entrant boundaries defined by F^*, F^*, F^*, and 

F,*. As with the basic transformation all numerical computations both to 
6 

generate the system and subsequently to utilize the coordinates for 
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solving a set of partial differential equations , are executed on a rectangular 
field with a uniform grid. 

Simply-Connected Region 

For a simply- connected region there are no bodies in the field and hence, 
no cuts in the physical plane and no re-entrant boundaries in the transformed 
plane. The single continuous boundary surrounding the physical field trans- 
forms to the entire rectangular boundary of the transformed field. The 
manner in which the physical boundary is split into four segments for place- 
ment on the four sides of the rectangular boundary in the transformed plane 
is a matter of choice. 


Coordinate System Control 

Control of the spacing of the coordinate lines on the body is easily 
accomplished since the points on the body are input to the program. The 
spacing of the coordinate lines in the field, however, must be controlled by 
varying the elliptic generating system for the coordinates. One method of 
variation is to modify the Laplace equations (10) by adding inhomogeneous 
terms to the right sides so that the generating system becomes 

^xx Sy " ’ ^xx V " 

In the transformed plane these equations become 

ax - 26x_ + Yx + J^(Px + Qx ) = 0 (13a) 

nn C n 


(13b) 
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The effect of changing the functions P(^,n) and Q(C>n) on the coordinate 

system can be seen by examining the system (12). If P = Q = 0, the system 

reduces to the pair of laplace equations used as the original generating 

system, i.e., Eq. (10). Let V > n’ be the solutions of (10) with boundary 

values on D. Let n" be the solutions to system (12) with the same 

boundary values and with positive functions P and Q on the right hand side 

of the equations. Now C" and are subharmonic on D. Thus for any constant 

k, the = k coordinate line would be closer to 5*' “ ^xnax would the C* ~ ^ 

line. The same relation holds for the n” * h and n* = k coordinate lines. 

Now if all or part of the curve ^ is a branch cut in D, this branch 

max 

cut will move in the direction of increasing ^ to meet the curve 5” = 5 

max 

if the right side of the system (12) is increased from 0 to a positive 
function P. An analogous discussion can be made on the effect of negative 
functions P and Q on the generated curvilinear coordinate system. 

Even though a change in P or Q in a subregion of D would change the 
coordinate lines throughout the entire region, the effect would certainly be 
more pronounced in the subregion. Also, the greater the change in P and Q, 
the greater the movement of the coordinate lines. By varying the sign and 
magnitude of P(5,n) and Q(C>n) for different values of C and n, considerable 
control can be exerted over the coordinate line spacing as will be seen from 
the examples that follow in Section IV. 

One particularly effective procedure is to choose P and Q as exponential 
terms, so that the coordinates are generated as the solutions of 
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^xx + Sy "“fi - ql) 

m 

- I b sgn(C - ? . )exp(-dy (5 - 5.)^ + (n - n.)^ ) 
j=l J J J J J 


= P(?,n) 


(14a) 


n 


n + n 

XX yy 


-T. a Sgn(n - n. )exp(-c |n - n.|) 

i=l 1 


m 


-Zb Sgn(n - n.)exp(-d./(i - + (n - n.)^ ) 

j=l J J J J J 


= Q(5» n) (14b) 

where the positive amplitudes and decay factors are not necessarily the same 
in the two equations. Here the first terms have the effect of attracting 
the 5 = constant lines to the ^ lines in Equation (14a), and attracting 

n = constant lines to the n = lines in Equation (14b). The second terms 
cause C = constant lines to be attracted to the points (^.,r|.) in (14a), 
with similar effect on n = constant lines in (14b). No computational dif- 
ficulties have been encountered because of the discontinuities in P and Q 
caused by the sgn function, which is defined by setting sgn(x) to be 1, 0, 

or -1 depending on whether x is positive, zero, or negative. Should pro- 
blems arise in later applications, this function can be replaced by 
2 

^ Arctan(nx) , where n is a large positive integer. The sgn function was 
chosen to give the maximum control. Several examples of the use of coordinate 
system control are given in Section IV. 
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With the inclusion of the sgn function (or the arctan function) the 
equations ( 14 a & b) for the curvilinear coordinates are no longer subharmonic 
or superharmonic, since the sgn function causes a sign change on the right 
side when the attraction is to lines or points not on the boundaries. It is 
possible, therefore, that too strong an attraction amplitude may cause the 
system to overlap and therefore be unusable. Many successful systems (all 
those included in the examples given herein) have been generated, however, 
using the above equations. 

The use of the sign-changing sgn function is only necessary to cause 
attraction to both sides of a line or point in the field. Elimination of this 
function causes attraction on one side and repulsion on the other. If it is 
only desired to concentrate coordinate lines near one boundary, such as the 
body surface, then there is no need for the sign change and the sgn function 
can be eliminated. In this case the equations are subharmonic or superharmonic, 
and a maximum principle is in effect to prevent overlap. Such a choice is 
provided for in the computer program. 

The subject of coordinate system control is still very much under investi- 
gation, and other control functions are being evaluated. It is anticipated 
that new coordinate control packages will be made available for inclusion in 
the code when warranted. Of particular interest is the capability to cause a 
specified number of lines to fall within a certain physical region, such as 
a boundary layer. Another area of further investigation is the coupling of 
the coordinate equations with the partial differential system to be solved 
thereon so that the coordinate lines concentrate automatically in regions of 


high gradient. 
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Time-Dependent Coordinate Systems 

If the coordinate system changes with time then the grid points move 
in the physical plane. Ordinarily such movement of the physical grid 
points would require interpolation among the grid points to produce values 
of the dependent variables at the new locations of the grid points. With 
the present method of coordinate system generation, however, it is possible 
to perform all computation on the fixed rectangular grid in the transformed 
plane without any interpolation no matter how the grid points move in the 
physical plane as time progresses. This occurs as follows: 

Recall that the coordinate system is generated as the solution 
of some elliptic system with the values of the transformed coordinates 
specified on the boundaries in the physical plane, one of these 
coordinates being specified to be constant on the boundaries and the other 
being distributed as desired along the boundaries in order, perhaps, to 
concentrate grid points in certain regions. The transformed coordinates 
define a rectangular plane, the extent of which is determined by the range 
of the values of ^ and n . Now if the same boundary values of 5 nnd ri are 
redistributed in the physical plane, perhaps because the boundaries in the 
physical plane have actually moved or maybe just to change the concentration 
of grid points around the boundaries, and the elliptic system is re— solved for 
the transformed coordinates with these new boundary conditions, new trans- 
formation functions can be produced with still the same range of values in 
C and T] (provided the elliptic system used exhibits a maximum principle) and 
hence to the same rectangular field in the transformed plane. The grid 
points in the rectangular transformed plane thus remain stationary, and the 
effect of the movement of the. coordinate system in the physical plane is just 
to change the values of the physical coordinates [x,y] at the fixed grid 
points in the rectangular transformed plane. 
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Thus, although the position of a grid point changes on the physical 
plane, its position in the transformed plane is fixed. The time 
derivative transforms to the transformed plane as shown below: 


(M) 


x,y 


9 (x,y,f ) / 9 (x,y,t) 
9(5, n,t) 9(5, n,t) 


f - X (f,y - f y£-)/J 
t t n 5 




(15) 


Here all (derivatives are expressed in the transformed plane, so that the 
interpolation that would be necessary to supply values at grid points in 
the physical plane that have moved is not required in the transformed plane. 
(Note that in the transformed expression for the time derivative, all 
derivatives are taken at the fixed grid points in the transformed plane. 

The movement of the grid in the physical plane is reflected only through 
the rates of change of x and y at the fixed grid points in the transformed 
plane. ) 

The problem of solving N partial differential equations of any type in 
a physical region with time dependent boundaries has been replaced by a new 

problem consisting of N + 2 equations with fixed boundaries. The two 
additional equations are, of course, those governing the transformation 
(either (10) or (12)). Thus, it is possible to construct numerical solutions 
to physical problems with time dependent boundaries in a fixed rectangular 
plane with a fixed square mesh with no interpolation required. Again the 
above statements imply the independence of computer software from physical 
geometry. Problems involving moving blast fronts, shocks, free surfaces, 
and any other time-varying boundaries can be attacked successfully with these 
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procedures. (Some application to free surface flow is illustrated in Ref. 26.) 
In addition this method allows time-dependent concentration of grid points as 
desired in the physical plane. 

The use of time-dependent coordinate systems requires that the difference 
equations for the curvilinear coordinates be resolved at each time step, 

^®urse. The coordinate values at the previous time step can serve as 
the initial guess for the next, however, so that the Iteration will converge 
rapidly. 

III. NUMERICAL SOLUTION 
Difference Equations 

The discussion here assumes the body contour and outer boundary trans- 
form, respectively, to the q-lines forming the lower and upper sides of the 
rectangular transformed plane as discussed in Section II. More general seg- 
mentation of the body contour(s) and the outer boundary, and placement as 
desired around the boundary of the transformed field, are provided for in the 
computer program. 

The finite difference grid for the single-body problem is illustrated 
in Figure 3a. Circles denote the points at which the difference approxi- 
mation to (11a, b) or (13a, b) , are applied, while the triangles denote boundary 
points. The left and right vertical boundaries are coincident in the physical 
plane, and the values of x and y are thus equal along these lines. Such lines 
are designated re-entrant boundaries as Indicated before. If the number of 
5 = constant lines is designated IMAX and the number of n-lines by JMAX, the 
computational field size is (JMAX-2) (IMAX-1) . Boundary values are specified 
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on 3=1 and j=JMAX for all 1 < i < IMAX. The j=l line corresponds to 
the contour (the body contour) in the physical plane while j=JMAX is 
associated with the remote boundary contour Second-order central dif- 

ference expressions (see Appendix D) are used to approximate all derivatives 
in the transformed equations. The resulting equations are, for (11a, b), 


'i.J ■ 


(16a) 


(16b) 


where 6' y’ (xj^),^.. and (y^^),^. are the difference ap- 

proximations for a, 6, Y, and the cross derivatives respectively. These 
expressions are developed in Appendix D. The re-entrant boundaries 
occurring at i=l and i=IMAX are dealt with as follows. Since the values 
of X and y are equal along these lines, iteration is necessary along only 
one of them. Choosing i=l for convenience, the ^-derivatives along this 
line are approicimated as exhibited below: 


‘’‘di.i “ 

^^2,j ^IMAX-l,j^^^ 

(17a) 

'■‘edi.J 

" ~ ^’"l,j "'iMAX-1,3 

(17b) 

'■'Enhj 

= (X2J+1 - ^2,j-l ''lMAX-l,j-l " "'iMAX-1,3+1^^^ 

(17c) 
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for 2 _< j £ JMAX-1. Similar expressions are used for the derivatives of 
y* The set of non-linear simultaneous difference equations produced by 
(16a, b) is solved by point SOR iteration . 

Multiple- Body Fields 


A sample mesh for a two-body transformation is shown in Figure 3b. 

As before, circles denote computational nodes and triangles the boundary 
points. Values defining the outer boundary contour (see Figure 2) are 
required for 1 i IMAX along the j“JMAX line. Boundary values specifying 

the shape of the body contours and Fg in the physical plane are 

required in segments along the j=l line as follows: 

12 < 1 < 13 

^7= 1 1 i 1 II 

Tg: 14 £ i _< IMAX 

The above requirements may be more clearly seen by comparing Figures 2 and 
3b. The difference equations (16a, b) and the vertical re-entrant boundary 
relations (17a, b,c) are also valid for multi— body transformations. The 
primary difference in the two transformations results from the existence, 
in the multi-body case, of the horizontal re-entrant boundaries along j=l. 

The equivalence of x and y values along these segments is demonstrated in 
Figure 3b. Again it is only required to calculate values along one re- 
entrant segment. Choosing the leftmost (II £ i £ 12), the n-derlvatlves 
are calculated using special procedures which are illustrated by the 
expressions below for the point marked with an® (i,j = II + 1,1) in 
Figure 3b : 
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<%'u+l,l “ '’'U+1.2 ■ 

<Vll+l,l =• =‘11+1,2 ■ ^’‘ll+l.l ’'rt-1.2 

‘“En’ll+1.1 = ^=‘14.2 - =‘14-2.2 =‘11+2,2 ' =‘ll,2>''' 


(18a) 

(18b) 

(18c) 


Note the existence of the horizontal re-entrant boundaries increases the 
size of the computational field somewhat. In the two-body example given 
the number of additional equations to be solved is 12 - (H+D • 

Multiple-Body Segment Arrangements 

In the case of a single body it is logical to keep the body contour in 
one segment, with a single cut connecting the single segment to the outer 
boundary. This type of arrangement is illustrated in Figure 4a. (Figure 4b 
shows an alternate single body arrangement. In these and all subsequent 
figures the dotted lines on the segment arrangement diagrams identify the 
two members of a re-entrant pair.) In the case of multiple bodies there is 
a wider choice of reasonable arrangements, some of which may be better than 
others for certain applications. The boundaries in the physical plane may 
be split into as many segments as desired, and these segments may be arranged 
around the rectangular boundary of the transformed plane in any way desired. 
These segments are all connected by branch cuts in the physical plane and by 
re-entrant boundaries in the transformed plane. Several of these arrangements 
^^0 iXiustrated in Figures 5-13. Illustrative values of the segment input 
parameters are given in Table 1 for each of these arrangements, and input 
instructions are given in Section VI. 
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In the arrangement of Figure 5, an n-llne encircles both bodies and 
forms a cut between the bodies, the cut to the outer boundary being a C-line. 
The outer boundary is also a line of constant n but at a different value. 

Here one body is split into two segments, while the other body and the outer 
boundary are each in single segments. Figure 6 shows an arrangement in 
which each body is in a single segment, each body being a C-line of different 
value. Here there is no cut between the bodies, but rather an n-line cut 
between each body and the outer boundary, which is split into two segments, 
each being an n-llne of different value. (This produces a system similar 
to a bi-polar coordinate system. ) In Figure 7 each body is also in a single 
segment with the outer boundary split into two segments, but here an 
n-llne encircles each body and forms the cut between that body and the outer 
boundary. In Figure 8 one body is a single segment encircled by an n-line 
which forms a cut to the other body. The other body is split into two seg- 
ments, each being a C-line of different value, with each segment connected to 
the outer boundary by a ^-line. The outer boundary is in a single segment 
and is an n-line. Other arrangements are shown in Figures 9-13. All 
these arrangements are shown without coordinate line attraction, and, conse- 
quently, many of the resulting systems exhibit wide spacing in concave areas. 
This spacing can be Improved by coordinate attraction as illustrated in the 
examples of Section IV. The results of the use of several of these multiple- 
body segment arrangements are given for two-body potential flow in Section V. 
Coordinate system control was used effectively in that case to improve the 
spacing in the concave region. These concave regions occur when he cut and 
body are on the same coordinate line. 
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Initial Guess 

Since the difference equations are nonlinear, the initial guess must be 
within a certain neighborhood of the solution if the iterative solution is to 
converge. With some segment arrangements a logical choice of an initial 
guess is difficult to perceive. Therefore several different types of initial 
guesses have been inserted in the program, with the choice to be made by the 
user as guided by past experience. The rationale for some of these guesses 
is more intuitive than analytical. The choices available are detailed below. 
(In each case the initial values of x and y on all cuts are interpolated 
linearly between the boundary values at the cut end points.) The choice is 
controlled by the input parameter IGES as discussed in Section VI. The guess 
type is identified by this number in the discussion below. 

(a) Weighted Average of Four Boundary Points - Here the values of x 
and y at each point in the field are set equal to the average of 
the four boundary points having either the same 5 index or the 
same n index, the average being weighted by the distance to the 
boundary in the transformed plane. Thus 

,JMAX - is . ( 3 - 1 N,, 

2 ^ij = ^JMAX - l^'^i,! - 1^ i, JMAX 

, ,IMAX - is . I i 

^MAX -“I^'^l.j ^IMAX - 1^ IMAX.j (19) 

for i = 2, 3, .... IMAX-1 and j = 2, 3, .... JMAX-1. An 
analogous equation is used for y. (IGES =1). A variation of 
this type (and also of types (b) , (c) , & (e) ) is provided by IGED , 
whereby the average may be restricted to only a two-point average 
in either the 5 or n direction. The direction chosen should be 
that which proceeds between the bodies and the outer boundary. This 


variation is useful with an outer boundary located on three sides. 
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(b) Same as (a), except zeroes replace the values on the cuts in the 
formation of the average. This type of initial guess is particu- 
larly effective with simply-connected regions, single-body fields, 
and multiple-body segment arrangements having the all body seg- 
ments on one horizontal (vertical) side and the outer boundary a 
single segment on the other horizontal (vertical) side. (IGES = 0) 

(c) Weighted Average of Body Segment Boundary Points Only - This type 
guess is the same as that of (a), except that boundary points on 
cuts are not included in the formation of the average, which there- 
fore may be formed with fewer than four points. This type and the 
exponential projection below are widely effective. (IGES = 2) 

(d) Moment Projection - Here the initial value at each field point is 
given by 

It ijfc I, ^ k ^ 

Ij H 2 d. ^20) 

k ‘J’' 

‘^Ijk ■ ■'Uij - 

Here Xj^ is the value at a point on the boundary of the trans- 
formed plane; is the distnace to that boundary point in the 

transformed plane; N is the total number of boundary points; and 
the summations extend over the entire boundary in the transformed 
plane (IGES =3). A modification of this type omits the division 
by N (IGES = 4). 

(e) Exponential Weighted Average of Body Segment Boundary Points - 
This guess is similar to that of (c) except that the weight in the 
average is exponential rather than linear. Increasing IGES causes 
the points to contract nearer the boundary segments corresponding 



28 


to the lowest values of n and This type is most effective 

when strong coordinate attraction is used with a single-body 
field having the body located on the bottom or left side of the 
rectangular transformed field. (IGES 4) 

(f.) Exponential Projection - The initial value of x is determined at 
each field point by 

Zx^ exp (-1 IGES ld..^/d^) 

^ij = E exp(-|l^d.^^/d^r (21) 

Ic 

where d is the diagonal length of the transformed field, the 
o 

other quantities having the same definitions as in (d) above. 

(IGES < 0) 

Examples of these initial guess types are shown in Figures 14-23 for 
the segment arrangements given in Figures 4-13. The value of IGES for each 
is given in the upper left corner of each plot. Table 2 lists the types for 
which convergence was obtained with each of these segment arrangements. 

The most widely effective initial guess in these cases was the expo- 
nential projection. This type of guess produced convergence in the single- 
body case and in six of the nine two-body cases. The optimum decay factor 
for the exponential projection was 40 (IGES = -40) in most cases, with an 
optimum of 20 (IGES = -20) in a few cases. 

Guess Type 2 (IGES = 2) also gave convergence in six of the nine two- 
body cases and in the single-body case. However, the number of iterations 
required was a bit larger than with the exponential projection. Type 2 gave 
convergence with one segment arrangement (Figure 9) for which the exponential 
projection gave divergence, but gave divergence for another arrangement (Figure 
12) for which the exponential projection gave convergence. 

Arrangements having the outer boundary in two segments tend to be the 
more difficult to converge. Of the four arrangements of this type (Figures- 
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6, 7, 12, 13), Guess Type 2 gave convergence for only one (Figure 13), while 
the exponential projection failed for two of the four. The two arrangements 
of Figures 6 and 7 proved to be particular recalcitrant, requiring a switch 
to a different size field in order to get convergence for the arrangement of 
Figure 6 and the introduction of a special guess for that of Figure 7. 

The general suggestion for two-body cases is to use either exponential 
projection with a decay factor of about 40 or Guess Type 2. For simply- 
connected regions, single-body cases, and the two-body segment arrangements 
having both bodies on the same coordinate line, Guess Type 0 is generally 
more efficient, although the exponential weighted average or projection and 
Guess Type 2 will also give convergence. Arrangements having two bodies in 
single segments on opposite sides of the transformed plane are particularly dif- 
ficult, and Guesses Type 1 and 4 may be used. 

With some segment arrangements with multiple bodies, convergence can 
be achieved with a close outer boundary, but not with the outer boundary 
farther out. Therefore, provision has been made for initially converging 
the solution with a circular outer boundary close in and then constructing 
an initial guess for a field with a larger circular outer boundary from this 
solution by linear projection to the larger field. This process can be 
repeated as many times as desired with the outer boundary gradually being 
moved out to its desired position. Two types of movement are provided: (a) 

the outer boundary radius is doubled at each step, or (b) the outer boundary 
radius is increased linearly at each step. This provision should not be used 
unless necessary, and then the movement of (a) is to be preferred in general, 
with as few steps as will produce convergence. 

Finally, with strong coordinate line attraction it may not be possible 
to achieve convergence from an initial guess that gives convergence without 
attraction. Provision therefore has been made whereby the attraction can be 
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added gradually, the converged solution for a small attraction becoming the 
initial guess for a case of stronger attraction. Two types of increase 
in attraction strength are provided: (a) the attraction amplitude is doubled 

at each step, or (b) the attraction amplitude is increased linearly at each 
step. This procedure is to be used only when necessary. In general, type 
(a) is preferred, with as few steps as will provide convergence. Further dis- 
cussion of the use of the various initial guesses is given in the instructions 
of Section VI . 


Convergence Acceleration 
For a difference equation of the general form 


‘l^^i+l,j ^i-l,j^ ^2^^i,j+l ^i,j-l^ '’l^^i+l,j ^i-l,j^ 


+ b^(f . - f . . ,) + cf . . + d. . = 0 

2 i,j+l r,J-l ij 


( 22 ) 


(i = 1, 2, — . I ; j = 1, 2, — , J) 

with boundary values specified on i = j =0, i = I + 1, and j = J + 1, and 

a^, bj^, b^, c, and d constant, the optimum value of the SOR acceleration 

parameter w can be obtained in the case where and a^^ ^2^’ 

the case where a^^ ^ b^^ and a^^ 1 b^^, (Ref. 18). The optimum parameters 

in these two cases are as follows: 

Case #1: a^^ ^ and 


0 ) = (over-relaxation, 1 < w < 2) (23) 

1 + /l - 

Case #2: a^^ ^ b^^ and a^^ 


2 


(jj 


1 + /l +^"p ^ 


(under-relaxation, 0 < u) ^ 1) 


(24) 
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where 


P 



7T 

I + 1 


4- 



(25) 


In the remaining case where a^2 > ^^2 ^^2 < ^,^2^ theoretical 

determination of the optimum acceleration parameter exists as yet. 

Since the difference equations for the coordinate system are nonlinear, 
the above theory is not directly applicable. However, if the equations are 
considered as locally linearized then a local optimum acceleration parameter 
can be obtained which will vary over the field. It should be noted that 
the local linearization is applied only to the determination of the accel- 
eratlon parameters, not to the actual solution of the difference equations. 

Following this approach and neglecting the effect of the cross deriva- 
tives, the local constants in the above equations become 


a. = a 


a2 = Y 


b, = 


j2p 


1 2 


b 

2 2 


c = -2(a + y) 


so that locally optimum acceleration parameters are 


CasB n: a.. > and Y - ^-1 

ij - 2 'ij 2 


"ij = 


1 + A - p, 

ij 


(over-relaxation) 


(26) 
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j. . Iq. . 

1 1 I '-I -< 


Case #2: , :< ~ and y_ £ ^ “ ^2 


Ij 


ij 




1 + /i Vp77 

ij 


(under-relaxation) 


(27) 


where 


^1.1 


a . , + Y » ^ 

ij IJ 


a. . - 

iJ 


4 2 

J .P. . 
-JLLJLl 


cos 


JMAX - 1 



cos 


7T 


JMAX - 1 


(28) 


J2|P| j2|q| 

In the remaining case where a > — ^ Y ^ — 2 — ’ ^ local 

optimum is available. The program allows a choice of strategy in this case: 
over-relaxation, under-relaxation, or a weighted average as follows: 

First pj^ and p^ are calculated from 


^1 a + Y 


a2 - 


j‘tp2 


cos 


IMAX - 1 


(29a) 


a + Y 


Ju _ ^ 

vr 4 r UMAX - 1 


(29b) 


If over-relaxation is jpecified then m is calculated from Eq. (26) using 
p = p^ + p^. The same expression for p is used in Eq. (27) if under-relax- 
ation is specified. If the weighted average is to be used then, using p^^ 

j2|p| 

in place of p, is calculated from Eq. (26) if a ^ — 2 ^ (27) 


if a < 


J^|P| 

- 2 ' 

Eq. (26) if Y 


Similarly, using p^ in place of p, ^2 is calculated from 
> ^ , else by Eq. (27). The average is then formed by 


pj^Wj^ + P 2“'2 
^1 + ^2 


( 30 ) 



Optimum Acceleration Parameters 


In order to provide some guide to the selection of acceleration para- 
meters for the most rapid convergence of the iterative solution, the 
optimum values were determined in a number of representative cases by 
computer experimentation. 

The body for this study was a Karman-Tref f tz airfoil, the contour of 
which is shown in Figure 24. The points on the contour were spaced at 
equal angular increments in the complex plane from which the airfoil was 
generated, with three additional points added at half, fourth, and eighth 
angular increments above and below the trailing edge to provide finer 
resolution in that region. 

A basic case was selected and four quantities, (the number of points 
on the body, the number of coordinate lines surrounding the body, the 
amplitude of the coordinate line attraction to the body, and the radius 
of the circular outer boundary) were varied individually and in pairs 
above and below the basic values. The initial guess type (Type 0) giving the 
fastest convergence for the basic case was used for all. Each case was 
run to convergence of 10 . Additional cases were run with different 

convergence criteria and different numbers of steps in the addition of the 
final attraction amplitude. The basic case was also run with a circular 
cylinder as the body for comparison of the effect of the body shape. 

A series of two-body cases was also run with two of the same Karman- 
Trefftz airfoils positioned as an airfoil and flap system. Only one seg- 
ment arrangement was considered, with both bodies on the same curvilinear 
coordinate line. The multiple-airfoil system and the segment arrangement 
are shown in Figure 25. The same set of quantities varied in the single 
body case was varied individually above and below the basic values (except 
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that variation of the number of points on the bodies above the basic value 
involved too much core and was omitted) . The initial guess type was the 
same as that used for the single-body studies, which proved to give the 
fastest convergence in the basic two-body case as well. The values of all 
input parameters for the cases run are given in Tables 3-6. 

The results of these studies are given in Tables 7-10. For the single- 
body field. Table 7 shows the effect of individual variation of each of the 
chosen quantities; Table 8 gives the effect of variation in pairs, and in 
Table 9 other miscellaneous quantities are varied. Table 10 gives the results 
for the double-body field. The number of iterations required with the 
variable acceleration parameter field and the average variable acceleration 
parameter over the field are also included in these tables. (Under-relaxation 

was used in the case of complex eigenvalues.) In a number of cases the vari- 
able acceleration parameters tend to be too large, and only in a few cases 
was the variable field better than the uniform experimentally determined 

optimum* 

Plots of the number of Iterations required vs. the acceleration para- 
meter are given for a few cases in Figure 26. In a number of cases the 
optimum parameter was only 0.1 below the divergence limit for the particular 
case. A typiccl example of this appears in Figure 26b. The effect of the 
general field size is evident in Figure 26c and d, where the larger field 
(d) gives a much sharper minimum. Strong attraction with small fields makes 
the convergence more difficult as can be seen in Figures 26e and f. With 
strong attraction and a small field convergence was obtained only in a very 
narrow band of acceleration parameters. 
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A few trends are evident in these results: 

(1) The optimum acceleration parameter, co*, and the number of iterations, 

I*, increase with the number of grid points. 

(2) oj* increases slightly as the outer boundary moves outward, this effect 
being more pronounced at small outer boundary radius. I* experiences a 
minimum as the outer boundary moves outward. Both of these effects are stronger 
with two bodies than with one. 

(3) oj* is little affected by attraction amplitude with one body, but tends 
to decrease with increasing attraction amplitude with two bodies. (This dif- 
ference is probably due to the fact that in the two-body case there was attraction 
to a line in the field, i. e., the cut between the bodies, as well as the body 
contours.) I* tends to increase with increasing attraction. 

(4) There is an optimum number of steps for addition of the attraction, 
with increasing I* occurring on both sides of this optimum. Too few steps 
may produce divergence. This optimum is less apparent with two bodies than 
with one. 

(5) The number of attraction lines had only a small effect on either 
u)* or I* in the cases considered. 

(6) oj* increases as convergence tolerance is tightened. 

(7) The intermediate convergence tolerance value that should be 
used when the attraction is added gradually should be 0.01. A tighter 
tolerance requires more iterations, while a looser tolerance may not produce 
a sufficiently close initial guess for the next addition of attraction. 

(8) The use of the variable acceleration parameter field is not generally 
recommended in cases where the optimum can be estimated from experience. This 
feature can be useful, however, in the absence of a good estimate. In that 
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case it is probably best to use the variable field once, and then to use a 
factor about 3% less than the average over the variable for subsequent runs. 


IV. EXAMPLES OF COORDINATE SYSTEMS 

A variety of results utilizing the theory and numerical procedures 
outlined in previous sections are now presented. The results selected for 
presentation here were chosen to exemplify the generality of the method , and 
some were used for the numerical fluids studies in Ref. 11. In most of the 

plots only a portion of the physical field is shown in order that the coord- 
inate lines may be distinguishable near the bodies. The actual fields were 
generally extended some ten chords in radius from the bodies. 

Coordinate System Control 

As discussed in Section II, the curvilinear coordinate lines may be 
concentrated by attracting the lines to other lines or points in the field. 
The control of the coordinate system in this manner is illustrated in Figures 
27-28. Input parameters involved are given in Table 11. In Figure 27, the 
basic system generated by the Laplace equations (zero right hand sides) is 
shown in (a). In (b) the q-lines have been attracted to the body. In (c) 
the attraction to the body has been made stronger on two sides, while in (d) 
the lines are more strongly attracted over a small portion of the body. In 
(e) and (f) the angle of intersection of the lines with the body has been 
controlled, over the entire body in (e) and over only a portion of the body 
in (f). 

Figure 28 illustrates the use of control to pull the coordinate lines 
into a concave portion of the body contour, (a) being the result of the 
Laplace equations and (b) having the lines attracted to the slope disconti- 
nuity on the lower surface. 
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Various Body Shapes 

Coordinate systems for a circular cylinder and a cambered Joukowski air- 
foil are pictured in Figure 29. The contours are of equi-spaced 5 = constant 
and r) = constant lines in the physical plane. (In the interest of clarity 
only a portion of the grid is shown in this and subsequent figures. The 
outer boundary for these and all succeeding results is circular and has a 
radius of ten body-lengths.) Note that the two systems given in Figure 29 
are orthogonal (The transformations in these instances are conformal.). 
Slightly more general bodies are shown in Figure 30. These include a cambered 
and an integral flap Karman-Tref f tz airfoil. Although systems for each of 
these could be generated by conformal transformations, the ones shown were 
obviously not. The effect of the coordinate system control is demonstrated 
for both airfoils in Figure 31. The figures exhibit the effect of contraction 
to the n-line coincident with the body profile. Note that the grid spacing is 
significantly collapsed in the contracted transformation. The contracted 
mesh spacing near the solid body boundary allows the solution of viscous 
flows (Ref. 11). 

Contracted coordinate systems for more general airfoils are exhibited 
in Figures 32-34. These are the Liebeck laminar airfoil, the Gottingen 
625 airfoil and a NACA 0018 profile. Contraction to the single-body p-line 
is demonstrated for the Liebeck profile and to the initial 15 n-lines for the 
Gottingen 625 and NACA 0018 airfoils. The effects of multiple-r|— line con- 
traction are seen to be quite dramatic. 

Coordinate systems for a multiple-airfoil system are shown in Figure 35, 
with coordinate line concentration to the bodies and into the concave region 
formed by the airfoils and the cut between. The coordinate line attraction is 
to the. first ten n-lines surrounding the bodies with an amplitude of 10,000 
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and a decay factor of 1.0 on all but the tenth line, where 0.5 was used. The 
coordinate system for simply connected regions are shown in Figures 36 and 37. 

Finally, to demonstrate the applicability of the transformation method 
to quite arbitrary bodies, a system in contracted form (15 line) for a rather 
odd looking body — denoted the cambered rock — is given in Figure 38. 

V. EXAMPLES OF APPLICATION TO PARTIAL DIFFERENTIAL EQUATIONS 

As noted above, any set of partial differential equations may be solved 
on the boundary-fitted coordinate system by transforming the equations and 
associated boundary conditions and solving the transformed equations numeri- 
cally in the transformed plane. All computation can be done on the fixed 
square grid in the rectangular transformed region regardless of the shape 
of the physical boundaries. Several examples of such application are given 

below. 


Potential Flow (Ref. 11, 12, 19) 

The two-dimensional irrotational flow about any number of bodies may 
be described by the Laplace equation for the stream function ip: 

ih +1' =0 (31) 

XX yy 


with boundary conditions 


\p(x,y) = on the surface of the kth body. 


i|^(x,y) = y COS0 - X sine at Infinity. 


(32a) 

(32b) 


where 0 is the angle of attack of the free stream relative to the positive 
x-axis. Here the stream function is nondlmensionalized relative to the air 
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foil chord and the free stream velocity. When transformed to the curvilinear 
coordinate system this equation becomes 

= 0 (33) 


The transformed boundary conditions are (gee Figure 1) 

=-• 1];^ on n = (i.e., on 1 ’^^*) (34a) 

~ y(C>n2) cosO - x((;, 7 i^) sinO on n ~ 1I2 (i-o-, on F*) ( 34 b) 

The uniqueness is implied by insisting that the solution be periodic in 

^ < q < ri 2 - The coefficients a, 3 , y, a, and x are calculated 

during the generation of the coordinate system (see Appendix A) . Equation (33) 
approximated using second-order, central differences for all derivatives, 
and the resulting difference equation was solved by accelerated Gauss- 
Seldel (SOR) iteration on the rectangular transformed field. The value of 

the boundary values of i); on the bodies were determined by imposing the Kutta 
condition on each body. 

The pressure coefficient et any point In the field nay be obtained 

from the velocities via the Bernoulli equation, which In the present non- 
dimensional variables is 


Cp = 1 - |y|2 

On the body surface this becomes 


(35) 


C 


P 



was 


2 


(36) 
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with the derivative evaluated by a second-order one-sided difference 
expression. The nondimensional force on the body is given by 


F = - ^ Cp n ds (37) 

where n is the unit outward normal to the surface, and ds is an increment 
of arc length along the surface. The lift and drag coefficients are 


11 

o 


(-X COS0 - y sinO)(U^ 

(38a) 


!> Cp 

(y^cosO + x>.sinO)d!; 

(38b) 


These integrals were evaluated by numerical quadrature using the 
trapezoidal rule. 

The coordinate system for a Karraan-Tref f tz airfoil having an integral 
flap is shown in Fig. 30b, and the streamlines and pressure distribution for 
this airfoil are compared with the analytic solution (Ref. 20) in Figure 39. 
Similar excellent comparisons have been obtained with other Karman-Tref f tz 
airfoils. Fig. ^2 shows the coordinate system for a Liebeck laminar air- 
foil, the solution for which is compared with experimental results (Ref. 

21) for the pressure distribution in Fig. 40. Finally the coordinate 
system for a multi-element airfoil is shown in Fig. 35, with the stream- 
lines and pressure distributions shown in Fig. 41. Here coordinate system 
control was employed as discussed above to attract the coordinate lines 
into the concave region formed by the intersections of the cut between the 
airfoils, as well as to the bodies. 

Figure 42 shows a coordinate system for a pair of circular cylinders, 
the coordinate lines being attracted to the intersections of the cut between 



the bodies with their surfaces. (The accompanying diagram shows 
the arrangement of the body and re-entrant segments in the transformed 
plane.) The streamlines for potential flow obtained on this coordinate 
system are shown in Figure 43a, and the surface pressure distribution is 
compared with the analytic solution (Ref. 22) in Figure 43b. By contrast, 
the uncontracted coordinate system, generated by Eq. (11), and resulting 
pressure distribution are shown in Figure 44. The effectiveness of the 
coordinate system control is clear in the comparison of these results with 
those in Figure 43b. To illustrate the use of different segment arrangements. 

Figures 45 and 46 show another coordinate system and pressure distribution 
for the same two cylinders. 

The effects of the various numerical parameters Involved for the potential 
flow solution were investigated In some detail, and the results, are reported 
in Ref. 19. These results should serve as a guide to reasonable choices of 
such parameters as field size, convergence criteria, mesh spacing, etc. for 
the use of the body-fitted coordinate systems in other applications as well. 
Ref. 19 also serves to Illustrate In some detail the procedure of application 
of the body-fitted coordinate system to the solution of a partial differential 


system. 
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Viscous Flow 

The time-dependent, two-dimensional viscous Incompressible flow about 
any number of bodies may be described by the Navier-Stokes equations in 
various formulations, two of which are illustrated below. 

Vorticitv-Stream Function Formulation . (Ref. 11-14) with the vorticity and 
stream function as dependent variables the transformed Navier-Stokes 
equations are 


+ (i|;^a)^ - = (cto)^^ - 26o)^^ 


-h Yti) + (JW T(i) )/J^R 

nn n 5 

(39) 

- 

(40) 


with boundary conditions: 

(j) = constant, ^ = 0 on body surface (Ala) 

j n 

ijj = y COS0 - X sine, u) = 0 on remote boundary (41b) 

All quantities are non-dimensionalized with respect to the free stream 
velocity and the airfoil chord. All space derivatives in the field were 
represented by second-order, central difference expressions. The time 
derivatives were represented by two-point backward difference expressions. 

The n-derivatives on the body surface were represented by second-order one- 
sided difference expressions. The solution was implicit in time, all the 
difference equations being solved simultaneously by SOR iteration at each 

time step. 

The boundary conditions were implemented directly except for the second 
of (41a), which was satisfied by adjusting the value of the vorticity on the 
body by a false-position iteration procedure until the second-order, one- 
sided difference representation of the tangential velocity, was below 


some to leranc e : 
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(42) 


Here (k) is the iteration count, K an adjustable parameter, and (i,l) refers 
to a point on the body surface. 


The surface pressure is calculated from the line integral of the Navier-Stokes 
equations on the surface: 


2 

?2 “ ~ ~ R /~^ (^ X <^)* dr 

~1 

^1 

The body force components are then obtained from the integration of the 


(43) 


pressure and shear forces around the body surface: 

= + ^ py^ dc - I ^ 0)X^ dc 
= - ^ px^ dC - ^ d? 


(44a) 

(44b) 


Finally, the lift and drag coefficients are given by 

" F^cose - F^sine (45a) 

S " FySine + F^cose (45b) 

where 0 is the angle of attack. 

The coordinate system for a Gottingen 625 airfoil shown in Fig. 33 was 
used in this solution. The high density of constant n-lines near the airfoil 
is the result of contraction to the first 15 n-lines. Streamline contours are 
shown in Fig. 47, and velocity profiles are shown in Fig. 48. Pressure and 
force coefficients are Illustrated in Fig. 49. 


To show that the boundary-fitted coordinate system can be used with 
arbitrary shaped bodies, the viscous flow about a cambered rock at a Reynolds 

number of 500 was developed. The contracted coordinate system used in 
the solution is given in Fig. 38. and oj contours are shown in 
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Figure 50, and velocity profiles are shown in Figure 51. 

In order that the pressure be single-valued, it is necessary that the 

value of the stream function on each body of a multiple-body system be such 

that the line integral of the Navier-Stokes equation on each body vanishes: 

2 

8v ! V I 

0 = /Vp *dr = -^ [-^ + ) 


-vx(i)+^Vx(jj] • dr 
= - ^ (V X Oj) -dr 


(46) 


Thus in the transformed plane it must be that 

^ (ytii ~ = 0 (^7) 

on each body. Since this requires a double iteration, i.e., for both m 
and on each body, it appears that this formulation is not as well suited 
for two-body calculations as is the primitive variable formulation that 
follows, 

Velocity-Pressure Formulation (Ref. 23, 14). With the velocity and pressure 
(primitive variables) as the dependent variables the transformed Navier- 
Stokes equations are 

u + [y (u^) - yp(u^)]/J + [x (uv) - x (uvI]/J 

‘Vs - ° ^ ’'“'I" 

+ OU + TU )/Rj2 

n 5 


Vj. + - yj(uv)^]/J + 

<Vr, ■ ° 

+ ov + xv-)/RJ^ 

n 5 


( 49 ) 
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ap 




■""nr,'" % + ' >'5"n>" 


- 2 (XjU^ - x„u^)(y^v^ - yjV^) 

■ ‘Vn ■ Vc’" ■ ■'"“f 

where 

D = (y„“5 - yju^ + - x^v^)/j 

Equation (50) is the transformed Poisson equation for the pressure, 
obtained by taking the divergence of the Navier-Stokes equations. 
The boundary conditions are 


(50) 

(51) 


u = V = 0 on body surface (52a) 

u = COS0, V = sin0, p = 0 on remote boundary (52b) 

The pressure at each point on the body was adjusted at each iteration by 
an amount proportional to the velocity divergence evaluated using second- 
order one-sided differences for the n-derivatives on the body. 

Pressure Distribution and Force Coefficients , The surface pressure distri- 
bution is calculated in the vorticity— stream function formulation from 
the line integral of th^ Navier-Stokes equation around the body surface. 

In the velocity-pressure formulation the surface pressure, is, of course, 
obtained directly. In the velocity-pressure formulation it is necessary to 
calculate the body vorticity before applying (44) from 


^ + X^U ) 

d 5 n C n 


(53) 


Figure 35 shows the coordinate system for a multiple airfoil consisting 
of two Karma n-Trefftz airfoils, one simulating a separated flap. Coordinate 
system control was used to attract the coordinate lines strongly to the first 
ten lines around the bodies and to the intersections of the cut between the 
bodies with the trailing edge of the fore body and the leading edge of the 
aft body. Velocity vectors and pressure distributions for the viscous flow 
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solution at Reynolds number 1000 are shown in Figure 52. 


Loaded Plate (Ref. 24) 

Figure 53 shows a comparison between the numerical and analytic solution 
(Ref. 25) for deflection contours for a simply supported uniformly loaded 
triangular flat plate. This problem involves the solution of the biharmonic 
equation by splitting into two Poisson equations. The transformed Poisson 
equations appear as in Eq. (40) above. Again all computation was done in the 
rectangular transformed plane. 
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VI. INSTRUCTIONS FOR USE - COORDINATE SYSTEMS 


The coordinate system is generated by the program TOMCAT with the 
subroutines BNDRY, CORPLOT, LINWT, ERROR, GUESSA, MAXMIN, PARA, RHS, SOR, 
PLOT, and SYMBOL. Subroutines PLOT and SYMBOL were added for compatibility 
between the GOULD and CALCOMP plotters. Each facility will probably have 
to make minor changes for plotting. A complete set of Instructions for the 
input is included in the listing of TOMCAT. 

Core must be set to zero at load time. 

The program uses two essential files with internal names 10 and 11. 
File 11 is used to store a partially converged solution so that the itera- 
tion can be continued by a subsequent run. This file need not be retained 
once the solution has converged. 

The converged coordinate system is written on file 10. This should be 
saved to use as input for PROGRAM FATCAT. 
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Certain files and additional control statements will also be necessary 
for the operation of the plotter, and these must be added to fit the user's 
installation. The program is compatible with both the GOULD and the CALCOMP 
plotters. 

Dimensions . The standard program allows a maximum field size of 70 5 lines 
and 60 n lines and requires a core size of 131,000 words for the Langley 
Research Center's CDC 6000 Series Computer System. Error signals and instruc- 
tions for modification will be given if these limits are exceeded. The three 
statements requiring modification for larger fields are separated from the 
rest of the dimension and data statements of the main program for convenience. 
Input Parameters. Most of the input is self-explanatory in the instruc- 
tions given in the listing of TOMCAT. However, a few additional comments 
may be in order. 

Field Size. The parameter IDISK controls the storage of the converged 
system on the disk, file and also signals the restart of a partially con- 
verged solution. The format of the storage of the coordinate system on 
the disk file is given following IDISK in the instructions. 

Plotting . Plotting may be by-passed by setting IPLOT to zero and eliminating 
oortain control cards. The selection of the GOULD, CALCOMP, or other plotter 
is made by the parameter IPLTR. Recall that the user must also add certain 
site-dependent control statements to the run stream appropriate to the 
particular plotter installation. The parameters NUMBR and NUMBRl allow the 
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plotted field to be confined to a portion of the actual field by restricting 
the number of curvilinear coordinate lines plotted. Coordinate lines may be 
skipped in the plot by adjusting ISKIPl and ISKIP2. The parameters XBl, 

XB2, YBl, and YB2 also allow the plotted field to be restricted to the 
portion of the actual field between limits in the cartesian coordinates. 

Guess . The parameter ICES controls the Initial guess for the 
iterative solution of the difference equations. Since these equations are 
nonlinear, convergence can be obtained only from an initial guess within 
some neighborhood of the solution. The same initial guess will not in 
general give convergence for all segment arrangements. The type 0 is 
suitable for single-body and simply-connected systems, however, as well as 
for multi-body systems having all body segments on the same curvilinear 
coordinate line. Types 2 and -40 are widely applicable to multiple-body 
fields, except those having two bodies in single segments on opposite sides 
of the transformed field, where types 1 or 4 may be effective. Very 
strong coordinate attraction near a boundary having a sharp convex corner 
requires an initial guess having sufficiently closely-spaced lines in the 
region of line attraction, else the iterates may overlap the boundary. In 
such a situation the exponential weighted average guess (type IGES > 4) should 
be used. The lines in the guess will be more strongly contracted as IGES 
IS increased. Note that the use of this type of guess requires that the 
boundary to which the lines are attracted be located on the bottom or left side 
of the rectangular transfomed field. Gradual movement of the outer boundary 

may also helplsee INFAC). See Section m for more information. 

B ody Contours . Points on the body and outer boundary contours may be placed 
as desired around the contours, and the cartesian coordinates of these points 
are input in order from cards, one card per point, or from a file with one 
image per point. 

Some of the contours of a multiple-body system may be split into several 
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segments which may be located on the rectangular boundary of the trans- 
formed field in many different ways as noted above in Section III. For 
single bodies the body and outer boundary contours are simply cut and 
opened into single segments. The points will be placed on the rectangular 
boundary from the first index, LBl, to the second index, LB2, even when 
LBl exceeds LB2. The contour segments must be arranged so that the segment 
ends are connected by coordinate lines that do not cross. This is simply a 
matter of arranging the segments on the rectangular transformed field 
boundary such that a continuous path is traversed over the contour seg- 
ments and connecting cuts in the physical field as a closed circuit is 
made of the rectangular boundary of the transformed field. The order in 
which these sets are input is immaterial, except that the outer boundary 
contour must be last. There is no relation between the order of input of 
the sets and the order of their appearance on the circuxt of the rectangu 
lar boundary. 

Note that no points are repeated in the input; the closure of each 
body contour is accomplished internally by the program. (The total number 
of 5 and n lines, IMAX and JMAX, however, will include the repeated points 
that close the contours. See, for example , the test cases given following 
the program listings in this section. 

If a circular outer boundary is desired, this contour may be calculated 
Internally rather than being input. In this case the radius and origin 
of the circle, and the angle of its initial point counter-clockwise with 
respect to the positive x-axis, are input. The points on the outer boundary 
contour will then be placed at equal angular increments clockwise from this 
initial angle. This outer boundary may then be located on the rectangular 
boundary in one or more segments in the same manner described above. 
Re-entrant Boundaries . The re-entrant segments pairs are specified by 
their end points and the sides on which they lie, but no points are input 
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thereon, since these are actually cuts rather than boundaries in the phy- 
sical plane. The order in which the re-entrant segments are input bears no 
relation either to the order in which these segments occur on the circuit 

of the rectangular boundary or to the order in which the body contours are 
input. 

Acceleration Paramaters . If a non-zero value is input for R(l) , then this 
value will be used as a uniform SOR acceleration parameter. Typical values 
for a number of cases have been given above in the Section III. The 
program also has the capability of calculating a field of variable local 
acceleration parameters which are updated at each iteration until the 
maximum absolute change of acceleration parameter over the field is less 
than the input value R(10) , after which the acceleration parameter field is 
frozen. Since these local parameters are calculated from linear theory, they 
are not true optimum values. Furthermore, in certain local situations, not 
even the linear optimum is known. A choice is given, via lEV, for these 
situations, but under-relaxation is generally the safest course. As noted 
in Section III, in some cases these calculated variable acceleration 
parameters tend to be too high and may not give convergence. The use of 
the variable acceleration parameters also requires extra computer time for 
their calculation, of course, and this calculation involves a square root. 
Therefore, the constant input acceleration parameter is usually to be 
preferred, provided this value is selected with some care with attention to 
the results in Section III, 

Coordinate System Control . The curvilinear coordinate lines may be concen- 
trated by attracting the lines to the body contours or other lines or to 
points in the field. Generally an effective way for concentration in the 
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vicinity of a body contour is to use attraction to the contour and also to 
the first several lines off the contour, with decreasing attraction amplitude 
on each line outward and a decay factor of 0.5 or less on all lines. 

On a field that is 10 chords is radius with 40 lines surrounding the 
body, an attraction amplitude of 1000 with attraction to 10 lines gives 
moderate concentration, while 100,000 gives very strong concentration. 
Amplitudes of 100 or below give only slight changes from the concentration 
that is inherent in the basic homogeneous equations. 

Some attention must be paid to the rapidity of the change of coordinate 
line spacing with strong attraction else truncation error in the form of 
artificial diffusion may be introduced as follows: Consider the finite 


(jiffei^ence approximation of a first derivative with variation only in the 

x-direction to which the ^-lines are normal. Then by (8) 

y f r f r 

f = h ^ = -S. 

X ■ x^y^ ' x^ 

The difference approximation then would be 

f = l-J: + T. 

^ ^i+1 ^i-1 ^ 

where T is the local truncation error. 

1 

Taylor series expansions of ^i-1 ^^out f^ then yield, after 

some algebraic rearrangement, 

1 <"1+1 "l-l ■ ^1> 

But the last factor is simply the difference approximations of x^^ so that 

T = - X f 

2 XX 

This truncation error thus introduces a numerical diffusive effect in 
the difference approximation of first derivatives. Care must therefore be 
taken that the second derivatives of the physical coordinates (i.e., the rate 
of change of the physical spacing between curvilinear coordinate lines) are not 
too large in regions where the dependent variables have significant second 


derivatives in the direction normal to the closely spaced coordinate lines 
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Just what is a permissible upper limit to the rate of change of the line 
spacing is problem dependent. Consider, for instance, viscous flow past a 
finite flat plate parallel to the x-direction. Here the velocity parallel 
to the wall changes rapidly from zero at the wall to its free stream value 
over a small distance that is of the order of -i- where R is the Reynolds 
number, R = , based on freestream velocity, the distance from the 

leading edge of the plate, x, and the kinematic viscosity, v. 

The equation for the time rate of change of the velocity parallel to the 
wall is 


- -uu„ - vu + ^(u + u ) 

t X y R XX yy 

Recalling that the large spacial variation in velocity occurs in the y-dlrec- 

tion, coordinate lines would be contracted near the plate. The truncation 

error introduced by this contraction would be 

-v(-T) = (- ^ y )u 

2 -^nn yy 

This introduces a negative numerical viscosity (- ^ y ), since v and y 
are both positive. 

The effective viscosity is thus reduced (effective Reynolds number 
increased), so that the velocity gradient near the wall is steepened. There- 
fore care should be taken that y^^ is limited so that the numerical viscosity 

^ 2 in comparison with the physical viscosity (— ) . 

R 


The situation is mitigated somewhat of the fact that the numerical 
viscosity is proportioned to the small velocity normal to the wall, this 
velocity being of order . Actually this limit is conservative, since the 
normal velocity drops to zero at the wall and only attains the order 
in the outer portion of the region of large gradient of velocity parallel 
to the wall where u is very small. 

yy 

^efficiently close spacing of lines can be obtained even subject to 
such limits on the rate of change of the spacing by using decay factors in 
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the tenths range for the coordinate attraction. 

The use of coordinate system control tends to slow the convergence 
of the iterative solution, and it is necessary to add the attraction grad- 
ually for strong concentrations. Convergence can be achieved even with 
very strong attraction amplitude by successively partially converging the 
field with a weaker amplitude and then using this result as the initial 
guess for the iteration with a stronger amplitude. This can all be done in 
one run by inputing the number of steps to be used for addition of the full 
amplitude (IFAC) and the multiple of the final convergence criterion to 
be used as the criterion for the partial convergence of each succeeding 
amplitude (EFAC) . Generally the lowest or perhaps the next-to-the-lowest 
number of steps that will produce convergence is the most economical. In 
typical single-body fields, an amplitude of 1000 has required three steps, 
while 10,000 has required six steps. A value of 100.0 is typical for EFAC. 

When very strong coordinate attraction is used to a boundary having 
a sharp convex corner the lines may tend to overlap the corner unless the 
SOR iterative sweep is toward this boundary. Since the sweep is done to- 
ward lower ^ and n values, such a boundary should be located on the bottom or 
left side of the rectangular transformed plane if strong attraction thereto 
is to be used. In such a case the initial guess should be IGES > 4 
as mentioned above, the stronger the attraction, the larger IGES. When 
IGES is large enough it should not be necessary to use gradual addition 
of the attraction. Movement of the outer boundary may also help (INFAC) . 
Convergence of Very Large Fields . With some segment arrangements for 
multiple-body fields convergence problems have occured with large fields 
(20 chords or so). This problem arises since with some arrangements, fewer 
lines pass between the bodies and the outer boundary in some directions 

has been made for approaching con- 


than in others. Therefore, provision 



vergence on the final field by successively partially converging smaller 
fields and using each succeeding result to produce an initial guess by 
linear projection for the next larger field. This can be done in a single 
run by specifying INFAC and INFACO. A choice is given between doubling 
the fxeld radius at each step and increasing it linearly. In the former 
case the initial size is completely determined by the number of steps 
specified, while in the latter case it is necessary also to specify the 
initial point in the linear increase from zero at which the radius is to 
start. Care should be exercised that the initial outer boundary does not 


intersect the bodies. 
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P VPlOT(72) 


DIMENSION X(7n,60), Y(70,60), RETA(70.60). 
1» T*CC(70,60), XPLQT(72) " “ 
dimension 
n» LBK6), 

21(6), LI2( 

INTEGER TACC 


RXI(70,60), WACC(70,60) 


R(13 ,IXER(2),IYER(2).Cl(S).C2(S),BDY(a), 

» LB2(6), L8DY(6), LR8ID(6), LRK6), LR2(I). i 
(6), LTYPE(6). L8EN(6), 1 mER( 2) LREIfc), L 


L83I0(6 
ISID(6), LI 


DATA NDIm,N0IM1 /70,60/ 
data pad/57. 2R577P5130S/ 
data mnb8EG,mn«8EG /6,6/ 

DATA ZERO /l.OE-08/ 


INPUT DATA ***********•***************,* 
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LATTER CASE TRY IGES*l OP U,) 

(IGED.NE.O TS MORE FFFECTIVF FDR CASES -*ITH THE 
nuTEW ROUNn*RY OV THREE SIDES.) 

■1 - WEIGHTED average OF FOUR PROJECTED 

boundary values, 

«0 - 8AHF AS 1 EXCEPT ZERO USED IN PLACE OE VALUES 
ON CUTS, 

,? - same as 1 EXCEPT BOUNDARY VALUES ON CUTS 

omitted in average. 

•3 . moment PROJECTION! 

Xb ( SUmOaSUMX-SUmXD) /SUMO, DIVIDED HY TOTAL 
number of boundary POINTS, 

where sumxesum of boundary values, 

SUMORSUM OE distances TO BOUNDAKY POINTS, 
SUMXOrSUM OF PRODUCTS OF ABOVE, 

SAME AS 5 EXCEPT NO DIVISION BY TOTAL 

number of boundary points, 

SAME AS 2 EXCEPT EXPONENTIAL WEIGHT RATHER THAN 
linear, CONCENTRATION IS TOWARD LOWER VALUES 

OF XI and/or eta with decay factor of 

0 , 1 *(I 6 E 8 -A) , 

<0 - exponential PROJECTION! 

X«8UMXE/8UME , WITH EXPONENTIAL DECAY 

factor equal to IABSCIGES), 

where SUMEpSUM of EXP(mOECAY*DI8TANCE J , 

SUMXCbSUM of PRODUCT OF BOUNDARY VALUE 
AND ABOVE EXP, 

(DISTANCE 18 NONOIMENSTONALIZED RELATIVE 
TO DIAGONAL OF RECTANGULAR TRANSFORMED FIELD) 


• « - 


>U 


IDISK - DISK HEAO/WRITE CONTROL! rn»«« 

■0 start iteration from initial GUF88, 

DON'T STORE coordinate SVSTEM ON DISK, 

■1 start iteration from initial GUESS, 

STORE COORDINATE SYSTEM ON DISK, 
p2 CONTINUE ITERATION OF A PARTIALLY 

CONVERGED SOLUTION READ FROM RE8TARTF1LE 
ON DISK, STORE COORDINATE SYSTEM ON DISK, 

■3 AS #2 except DON'T STORE COORDINATE SYSTEM, 


NOTE! IDISK OF 1 OR 2 CAUSES THE COORDINATE SYSTEM TO BE WRITTEN 
TO DISK IN THE FOLLOKI^® FOPmATI 


wRiTEdo# n 
wPITE(lO#n 
^PlTE(lO#n 
i«RlTE(lO,n 

i L«1 #^68EG) 
WRlTE(10#n 


Cl 

C2 

IHAX#JMAX#NB8EC#NR8EG,L18EG#N§DY 

(LB8I0(L)#LBI(L)»L82(L)#L80Y(L)#L8EN(L)# 


(LR8I0(L)#LRI (L5 #LH2(U #LI8IO(U5#LIl (L)#L12CU # 

I LTYPE(L) #L« 1 #NR 8 EQ) 

^RlTEMOil) ((X(I#J)#l*lilHAX)#J»l#JWAXl, 

1 ( (Y(I# JRl# JHAX) 

here LISEG 18 THE TOTAL NUMBER OF BODY SEGMENTS (EXCLU8 I VE 
or OUTER boundary SEGMENTS) PLUS If L8EN(L) IS ♦! IF 
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6^ 

bU 

65 

66 

67 

68 

69 

70 

71 

72 
75 
7<i 

75 

76 

77 
7S 
79 
BO 
B1 
82 
65 
BP 

85 

86 

87 

88 

89 

90 

91 

92 
95 
9a 

95 

96 

97 
96 
99 

too 

101 

102 

105 

lOtt 

105 

106 
107 
106 

109 

110 
111 
112 
115 
lia 

115 

116 
117 
116 

119 

120 
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LP2(M>LPin) ANO 18 -1 ,PP 

I^TCWCHA^GEO internally aFTPR L8EN TS SFT IF NtrFSfiAov 

oTToS iirnV’.j, 

(«) ONE ON LEET AND 0n£ On right. (5) BOTH on . «t no 
(6) ROTH ON RiGHTi X AND V ARE THE TAHTESIan COORDINATES. 

IE CONVERGENCE IS NOT ATTAINED In THE ALLOWED niihber nr 

5l8K*FOrRE»TART^‘’IiI^'*''J SOLUTION IS STORED ON 

SJ?JlNr IDTsI CONTINUED RV 

SPrriNG lOISK TO 2 OR 3 AND INCREASING ITER, 


IwIR 


• 0 PRINT EACH ITERATION ERROR- NORM. 

«t PRINT EACH iteration ERROR NORM, 


IwINTL - .0 DON'T print initial GUESS. 

•1 PRINT INITIAL GUESS, 

IwEIN . ao PRINT CDOROINaTE SYSTEM. 

■I DON'T PRINT COORoINATE system, 

.ve».GfS FO« I»,T,.L 

GUESS TYPES 0,1,2, AND ,GT,« | 


■ 0 
■ 1 
■ 2 


average in both XI AND ETA DIRECTIONS 
(FOUR POINT AVERAGE) 

average in only eta direction 
(T wo point AVERAGE) 

average in only XT direction 

(Two POINT AVERAGE) 


** I8KIP1 , I8KIP2, • EORMAT(RIS) ' 

IPLOT - PLOT OPTlONSi 

*? (INPUT OF REST OF CARO NOT REQUIRED) 

■1 PLOT coordinate system, ^ ^ 

■2 PLOT INITIAL GUESS AND COORDINATE SYSTEM, 

IPLTR • al plot WITH GOULD «800, 

■2 PLOT WITH GERRER 

■3 OTHER ( call pseudo • DEVICE INDEPENDENT • 
varian and calcomp DO not have LINEwT 
CAPABILITY) 

NcopY - number oe copies op plot desired, 

LINWTI . plot line weight DESIRED POR PLOT TITLES. 

(-2 -I, 0, I, 2 RESPECTIVELY POR TRIPLE. DOUBLE 
ROPRAL, male, THIRD WEIGHT LINES) DOUBLE. 

(THIS APPLIES ONLY TO THE GOULD «800) 


LINWT2 


hiSrS OeSlRED EOR COORDINATE 8Y8TEN. 

CIEK KiOTl BELON LINWTl) 

(This applifs only to the goulo aaoo) 


NUMBR • number of ETA«LINE8 DESIRED FOR PLOT. 
(ZERO VALUE PLOTS ALL) 


l?l 

M? 

i^3 

12 ii 

125 

126 
127 
12fi 

129 

130 

131 

132 

133 
13^ 

135 

136 

137 
I3fl 

159 

1 ao 
lai 
ia 2 
ia3 
laa 
la5 
t a6 
lar 
las 
U9 

150 

151 

152 

153 
isa 

155 

156 

157 

158 

159 

160 
161 
162 
165 

169 

165 

166 
16 ? 
166 
169^ 

170 

171 

172 

173 
179 

175 

176 

177 

178 

179 

180 
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Ki 'J R P 1 

m 

MiMBEP OF XI-LImeS 

OESIRFO PCiR PLOT, 


(ZFRO value plots 

ALU 

ISKIPI 

. 

SKIP parameter for 

xi-ltnfs. 



(1 PLOTS EACH LINE 

, 2 PLOTS EVEPY second 

ISKIP? 


SKIP parameter for 

ETa-L INES, 


(SEE note BFLOW is 

KIPI ) 


* PATW RHOY AND ThF flUTF» R0<JNDA»Y IS niVIOEO INTO 0»^F OP 

* mSr? T.llUl ON THE 8IHES nr the ^^CT*N,UL*J T«AN8F0«nE0 

- Firin these segments *«E connected RT re-EnTR*nT SEGMENTS. 

* The segment configuration input is as FOLLOhSi 

* CARD I nHSEG.NRSEG - E0RHAT(2I5) 

N08EG - total number of BOOY AmD OUTER BOUNDARY SEGMENTS, 

NRSEG • total number of PAIRS OF RE*EnT«ANT SEGMENTS, 

(2FR0 FOR simply-connected REGION) 

CAROS(NRSEG) I LBSI0,LBI,LB2.LBDY - E0PMATUI5) 

IHSID - SIDE OF rectangular TRANSFORMED FIELD ON mHICH 

BODY OP OUTEP BOliNHAPY SEGMENT IS LOCATED* 

(BOTTOM IS 1, LEFT IS 2, TOP IS 3. RIGmT 18 «,) 

LH1,LB2 •« FIRST AND LAST INQlCFS OF SEGMENT. 

(LB) may exceed LB2) 

IBDY - BODY number (BODIES ARE NUMBERED CONSECUTIVELY 
FROM ! TO NBDY 

OUTER BOUNDARY IS BOOT NUMBER 0 OR NBDVAl, 
number 0 CAUSES OUTER BOUNDARY TO BE CALCULATED 
internally as a circle, positive or NEGATIVE 
nBDY^I CAUSES OUTER BOUNDARY TO BE READ AS OTHER 

notf^i’each body is read via a single padd or set 

OF CARDS MITH NO repeated POINTS, NOT EVEN 

The first point, body segments must be 
consecutive ACCORDING TO LBDY, MITH THE 
outer boundary last regardless OF ITS 

LBDY. POINTS IN FACM SEGMENT ARE READ 
CONSECUTIVELY AND PLACED ON BOUNDARY 
FROM index LBl TP INDEX LB2, 

** CAROS(NRSEC) I LRSID.LRI ,LR2iLI8I0»LIl ,LI2 • F0RMAT(6I5) 

(OMIT FOR SIMPLY-CONNFCTEO REGION) 

LRSID.LISIO - SIDES OF RECTANGULAR TRANSFORMED FIELD ON 
which segments OF A re-entrant pair ARE 
LOCATED, SEE NOTE BELOW LBSID FOR SIDES, 
(LISID MUST EQUAL OR EXCEED LR8ID) 


LR1,LR2»LII»LI2 • 


FIRST AND LAST INDICES OF EACH SEGMENT 
OF A re-entrant pair, (IF L1810 IS EQUAL 
TO LR8I0 then LIl MUST EXCEED LR2, IF 
LISID IS NOT EQUAL TO LR81D THEN LI I 
MUST EQUAL LRl. IN any CASE ,LR2 HUST 


1 bl 
182 
183 
18U 
165 
186 
1 87 
186 
1 89 

190 

191 

192 
195 
19U 

195 

196 
19T 

198 

199 

200 
201 
202 
203 
209 

205 

206 

207 

208 

209 

210 
211 
212 
215 
219 

215 

216 
21T 
216 

219 

220 
221 
222 
223 
229 

225 

226 
22T 
226 

229 

230 

231 

232 

233 
239 

235 

236 
23T 
236 
239 
290 
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EXCEED L«l. LI2 "0«T EXCEED Lll.) 2«l 

?U? 

** CARO I RC 1 ) ,B{2) ,R (53 , VI^^EI^ I AINEINjXOTKF, YOINE.WI^F > Zul 

EORMAT(7Ein.O,I5) 24U 

2ttS 

R(l) - CAUS8-8EI0EL ACCELERATinK parameter, 246 

ZERO value CAU8E8 VARTARLE ACCELERaTIDM PARAMETER 247 

FIELD TO BE CALCULATED INTERNALLY, 248 

(TYPICALLY 1,05) 24<> 

250 

R(2) - convergence CRITERION FOR X ITERATION ERROR NORM, 251 

(Typically o,ooood 252 

255 

R(3) - convergence criterion FOR Y ITERATION ERROR norm, 254 

(TYPICALLY 0,000013 255 

256 

YINFIN • RADIUS OF CIRCULAR OUTER HOI'NOARY, 257 

258 

AINEIN • angle of first POINT ON OUTER BOUNOARV, (DEGREES) ?5R 
(ANGLE IS POSITTVE C0UnTEB-CL0CK"I8E FROM POSITIVE 260 
X-AXIS, POINTS ARE CLOCFRISE FROM THIS ANGLE,) 261 

262 

XOINF.YOINF - center of CIRCLAR OUTER BOUNDARY, 263 

264 

N'lNF - number of unique points on outer boundary, 265 

266 

NOTEi YINFIN, AInFIN,XOINF, S YOINF mav BE BLALiK IF 267 

outer boundary IS TO ftE READ, 268 

269 

** CARD I lfV,IAIT,R(10) - format (215, FIO, 03 270 

(BLANK CARO MAY BE INPUT IF CONSTANT ACCELERATION 271 

parameter is used) 272 

275 

lEV • CONTROLS complex JACOBI EIGENVALUE PROCEDURE, 2T4 

(OPTIMUM ACCELERATION WITH REAL EIGENVALUES IS 275 

over-relaxation, optimum -ith imaginary is 276 

UNDER-RELFXATION, no theoretical optimum is known 277 

FOR complex eigenvalues.) 278 

•I I UNOER-RELAX, 279 

0 I weighted average, 280 

♦1 I OVER-RELAX, 261 

282 

lAlT - NON-ZERO VALUE CAUSES VARIABLE ACCELERATION 283 

parameter field to be printed, 284 

269 

R(10) • CONVERGENCE CRITERION FOR VARIABLE ACCELERATION 286 

Parameter field, field is frozen when maximum 2bt 

ABSOLUTE change on FIELD IS LESS THAN R(10), 286 

(TYPICALLY 0,01) 289 

290 

A* CARO I INFAC.INFACO - FORMATC2I5) 291 

(CAN BE USED TO AID CONVERGENCE BY CONVERGING A 292 

smaller field first and using THIS result to PRODUCE 293 

AN INITIAL GUESS FOR A LARGER FIELD. BLANK CARO 294 

HAY RE INPUT IF THIS FEATURE IS NOT TO BE U8E0. 299 

STANDARD IS TO NOT USE THIS FEATURE.) 296 

297 

INFAC • number of steps IN ATTAINMENT OF OUTER BOUNDARY. 29B 

POSITIVE DOUBLES OUTER BOUNDARY AT EACH STEP, 299 

NEGATIVE MOVES OUTER BOUNDARY LINEARLY, 300 
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c * nNC»E*8P MAGNlTUnP If nrVEHGENCE OCCURS) 301 
C * 302 
r * INEACO - INITIAL STEP In ATTAInm|nT OF OUTEH BOUNDAWV, 503 
c * (LINEAM attainment ONLY) 5oa 
c * 305 
r *** CARD I SIZE, RATIO, niST, XBl ,XB2,YB1 ,YR? - FORM* T (7F 1 0 . 0 ) 306 
C * (OMIT IF NO PLOTS DESIRED, I.E,, IF (PLOT IS ZE«0) 307 
r * 3oa 
r * SIZE • PLOT SIZE IN Y-DIRECTIOn, (INCHES) 309 
c * (Typically s.oj 51o 
c * 311 
c * RATIO -■OX AND Y PLOT SCALES ARE Em'AL, 312 
C * >0 X AND Y PLOT scales ARE ADJUSTED 80 THAT THE 313 
C * PLOT IS square, 3U 
C * (TYPICALLY 0) 315 
C * 316 
r * DIST - GOULD PAGES REOUEST ( X-OIRECT I ON ) , EITHER 10 OR 20, 317 

r * (typicallt 10,0) 3ie 
C * 319 
c • X81,XB2 - minimum and MAXIMUM X-VALUES TO BE PLOTTED, 320 
C * (ZEROS PLOT ALL) 321 
C * 322 
C * YB1,YB2 - minimum and maximum Y-VALUES TO BE PLOTTED, 323 
C * (ZEROS PLOT ALL) 32« 
C * 325 
c *** AFTER This input, read in body coordinates - EORMaT(2F10,0) 326 
C *** 327 
C ■** TE no COORDINATE SYSTEM CONTROL IS TO BE USED, EOLLOw THESE CARDS 328 
C *** HITM three blank cards, IE CONTROL IS TO BE USED, USE THE 329 
C A** EOLLOMINC, INPUT rather THAN THE BL*NK CaRDSi 330 
C * 331 
C **• input FOR COORDINATE SYSTEM CONTROL, USE THO SETS, ONE FOR 332 
C AAA XI-LINE CONTROL AND ONE FOR ETA-LINE CDNTROL. 333 
c *AA (THIS data is read in SUPROUTINE SOR,) I 33« 
c A 335 
c AAA CARO I aTYP, ITYP,NLN,nPT,DEC»AMPFaC - FORMAT(A6,14,2I5,2E10,0) 336 
C A 337 
f A ATYP • TYPE OF attraction, (XI FOR XI-LINE ATTRACTION, 336 
C A ETA FOR ETa-LINE ATTRACTION.) LEFT JUSTIFIED, 339 
C A 340 
C A ITYP - ZERO GIVES ATTRACTION ON BOTH SIDES, 341 
C A non-zero gives attraction on convex side and 342 
c A REPULSION ON CONCAVE SIDE, 343 
C A 344 
c A NLN - number of attraction LINES. 345 
C A 346 
c A NPT - NUMBER OF ATTRACTION POINTS, 347 
C A 348 
C A DEC - non-zero DEC USES DEC FOR DECAY FACTOR, 349 
C A 350 
C A AMPFAC - NON-ZERO AMPFAC multiplies ALL AMPLITUDES 351 
C A BY AMPFAC, 352 
C A 353 
C AAA CARDS(NLN) I JLN,ALN,0LN - FORMAT (5X , 15, 2F 1 0 , 0 ) 354 
C A (OMIT IF nln is ZERO) 155 
C • 35b 
c * JLN - ATTRACTION LINE INDEX, 35T 
C A 356 
C A ALN - amplitude (negative REPELS) FOR LINE ATTRACTION, 359 
C A 360 
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C * - DECiV factor for line ATTHACTIOm. 361 

C • 362 

c *** CABf)S(NPT) I IPT , JPT, aPt.DPT • FnRM*T(21?»2Ftn,0) 365 

C * CnMTT IF ^^PT TS ZEPO) 36^J 

C * 365 

C • IPT, JPT - ATTPACTtON PniMT IMDICES. 366 

* 367 

* APT • AMPlTTUDF (NFGATIVF PEPELST FOP POInT ATTHACT10^, 36F 

* 369 

* OPT - DECAY factor FOR POIMT ATTOACTln^, 370 

* 371 

*** FOLLOW THF COOBDIRATE SYSTEM CH^TPOL C*PDS wITH ThE 37? 

*** FOLLOWING CAPDl 373 

* 37U 

*** CAPO I IFaC.IPIT.EEAC - FOPHAT (2I5,F1 0.0) 375 

* (CAN be used to aid convergence HY CONVEPGING field 376 

* WITH less attraction first AMO USING this result 377 

* AS the initial guess for stronger attraction, 378 

* blank card must be input if this feature is not used, 379 

A STANDARD IS TO NOT USE THIS FEATURE • BUT ITS USE HAY 360 

* BE necessary with STRONG ATTRACTION.) 361 

* 382 

* lEAC - number of steps IN ADDITION OF I NHOHOGENEOUS TFRh, 363 

* POSITIVE DOUBLES INHOMOGENEOUS TERM aT EACH STEP. 36U 

* NEGATIVE Increases inhomogeneous term linearly, 365 

A (INCREASE MAGNITUDE IE DIVERGENCE OCCURS.) 366 

* 36T 

A IRIT • non-zero value causes InhOmogEnEOUS TERM TO BE 388 

A printed, 369 

A 390 

A EEAC • multiple of convergence criterion to be USEO for 391 

A intermediate convergence between additions of 392 

A inhomogeneous term, (Typically 100,0 ) 393 

A 39« 

AAA****************************************************************** 395 

396 

READ INPUT parameters 397 

396 

WRlTE(6.6aO) 399 

aoo 

A CALL TO PSEUDO INITIALIZES The GRAPHIC OUTPUT SYSTEM, THIS MUST UOi 
BE THE FIRST CALL FOR GRAPHICS IN ORDER TO GENERATE PLOT DATA it02 

IN THE FORM OF A DEVICE INDEPENDENT PLOT VECTOR FILE, «05 

A CALL TO LEROY SLOWS TMF SPEED FOR GERBER FOR LTOUID INK PEN, ROR 
IT IS OK TO LEAVE CALL LEROY IN FOR THE OTHER DEVICES, tt05 

R06 

CALL PSEUDO ROT 

CALL LEROY R06 

READ (5.650) C1.C2.B0Y R09 

READ (5*620) IMAX,JHax,NBDY.ITER.I0E6.IDI8K.Iwir,tw1nTL.1WFIN,IGED RIO 

IF (IMA*,0T,NDIM) write (6,700) IMAX.NOIM RH 

if (JMAX.GT.NOIMI ) write (6,720) JMAX,N0IM1 R12 

IF (IHAX.GT.NDIM.OR.JMAX.GT.NOIMl) STOP I RIS 

READ (5,620) IPL0T,IPLTR,nC0PY,LINwTI,linWT2,NUMBR,NU»IBR1,I «IR 

UKIFt,18KIP2 R15 

READ (5,960) NBSEO.NRBEG R16 

IF (NBIEO.OT.MNBSEG) WRITE (6,910) nbSEG.HNBSCG RlT 

IF (NRBEO.GT.MNRSEQ) WRITE (6,920) NRBEO.mnRBFG RIB 

IF (NBBfG.6T.HNB8E6.0R.NR8E6,GT,HNR8EO) STOP 2 R19 

READ (5,880) (LBIID (L ) ,LB1 (L ) , LB2 (L ) ,L8DY (L) ,Lb1 , NB8EO) 020 
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IF f»'RSEG,f-'F,n) WfAO fS.eOO) (U«S ID (U . I w 1 tl ) . lO? f L ) , I I SIO ( U * U I U 
1L),LI2(L) ,L«1 .^»SFG) UiS 

»F*D (5,«00) (Rtn , T«1 ,S) I YT^FI^:,*I^FTM,xnI^(F, YOI»»F,nImF U25 

frF*n (5,^20) IEV,lAiT,R(iri) U2« 

read (5,620) INFAC . I'^FACn U25 

TF (IPLOT.N-E.O) RfAD(5,(>30) S T ZF , R AT J n , n I ST , XB j , x«2 , VRi , v H2 <426 

C Ui7 

r hHITF I^PLIT PABAHETFPS <428 

C <42«» 

•‘RITE (6,1060) U30 

'•rite (6,9«»0) IBAX,jBAX,NBDY,ITFR,ir,ES,T(lIS'<,TwIR,IWIA<TL,I'-'FIN <131 

l,ICEO U32 

"RITE (6,1 000) IPLOT, IPLTR,KCOPY,l.IN"Tl ,l IM"T?,x<UMBR,X‘UMBHl <435 

1,19kipi,I8kiP2 <43<4 

"RITE (6,1010) NJB3EG, NR8EG 035 

"RITE (6,1 020 ) R(l),R(^),R(3),YT^FI^l,*I^■FIM,xnI^lF,YOI^.F,Nl^-F 036 

"RITE (6,1030) IFV,IAIT,R(10) 037 

"RITE (6,1 000) IN'FAC , INFACO 038 

"RITE (6,1050) SIZE, RATIO, DIST, XBl ,XB?,YH1 ,YB2 039 

"RITE (6, 1 070 ) 0440 

IF (6RSEG.E0.0) "RITE (6,1080) OOl 

"RITE (6,970) IGES 0U2 

"RITE (6,930) (L,LHSina),LBl(L),LP2(L),LPDY(L),L»l.NR8EG) 003 

IF f'‘lRSEG.^<E,0) "RITE (6,900) (1 , LR8 1 n (L ) , L» 1 CL ) , LR? (L ) , L 1 8 10 ( L ) » L 000 

1 II (L) ,LT2(L) ,L*1 ,6H8EG) 005 

IF (INFACO.EC.O) INFACO«l 006 

IF (INFAC.EO.O) INFAC*! 007 

"RITE (6,950) YIXFIMjAI^FINjXOItuFjYOIWF.NTNF.lNFAC.lNFACO 008 

IF (R(l ) .GT.O.O) "RITE (6,870) 009 

C 050 

C SET UP parameters 051 

C 05? 

NPLT8«1 053 

AINFI^»AINFI6/RA0 050 

IF (MUMBR.EO.O) mUM8R«JMaX 055 

IF (NUMBRl ,EQ,0) NUMBR1«IMAX 056 

IF (I8KIP1.EG.0) I9KIP101 057 

IF (I8KIP2.EO.O) I8KIP2«l 058 

IF (MBDY.LE.O) nbdYFI 059 

IF (IPLOT.EO.O) GO TO 10 060 

IF (AB8(X01),LT.ZERO) XB1«-1,0E20 061 

IF {AB8(XB2),LT.ZER0) XB2po1,0E20 062 

IF (AB8(YB1),LT.ZCR0) YB1»-1,0E20 063 

IF (ABS(YB2) .LT.ZERO) Y82»+1,0E20 060 

IF (0I8T,UE.0.0) ni8T«10,0 065 

10 CONTINUE 066 

C 067 

C READ POINTS ON BOOTES AND 068 

C read or calculate points on outer boundary 069 

C 070 

DO 20 LpIiNBSEG 071 

20 IF (IAB8CLBDY(L)).EO.NBOY"1,OR,LBOY(L).EO,0) SO TO 50 072 

LI8EGBNB8EGA1 075 

GO TO 00 070 

50 LI8EGPL 075 

00 DO 50 Ial,IMAX 076 

DO 50 Jal,JMAX 077 

X(I,J)a0.0 078 

50 V(I,J>a0,O 079 

LBDYOaO 080 
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LB0YCNB8EC+1 5*»1 00 
00 280 L*l,NB8tG 
(L) 

T2«LB2(L) 

I8ENB1 

ir (U,GT,I2) I8ENB-1 

L8EN(L)Br3EN 

Kl*MIMom,I2) 

K2BMAX0n J,I2) 

LBl (L) bK1 
LB2(L)»K2 

IE (UBOYtD.EO.LBOVO) Il«Iltl8EN 
IE (LBOYCU .NE,LBDY(L^n ) I2»T2 -ISEm 
IE a.BDY(L) .NE.LBOYO) ia«n 
Kl»MIN0(It,I2) 

K2BM*X0m, 12) 

ICOTOBLBSIOn.) 

SO TO (80, 160,<i0, 160) , IGOTO 
C*n** BOTTOM OR TOP 

80 IE (LBSIDID.EO.l) J«1 

IE (LBSIOtL) ,EQ,3) JbJmax 
IE (MRBEC.EQ.O) GO TO 00 
IE (L.LT.LISEC) go TO 90 
IE (LBDY(U) 90, TO, 90 

70 CALL BNORY ( X , Y , J , 1 1 , 1 2 , LBS 1 0 ( L ) , Y I k F I n , A I NPI N , XOINP , YO INE , K»I NF , 
INOIM) 

GO TO 130 

90 DO 100 KaKl,K2 

IBI1+CK«KI)*I8EN 

100 READ (5,830) X ( I , J ) , y ( I , J ) 

ISO IE (LBOY(L) .E0.L8DY0) GO TO lUO 
I6*J 

Xil69X(ia, 16) 

Ytt6BY(la,l6) 

60 TO 150 
UO CONTINUE 

X(I1«I8EN, J)*X35 
Y(I1»I8EN, J)«Y35 
150 I59J 
13912 

X359X(I3,I5) 

Y35bY(I1,15) 

IE (LBOy(L),EQ,LBOY(LTl ) ) GO TO 260 
IE (NRSEG.EQ.O, AND.NBDY.GT, 1 ) GO TO 280 
X(I2tI8EN, J)9XU6 
Y(I24I8EN, J}9Ya8 
60 TO 260 

C**9 LEET OR RIGHT 

160 IE (LB8IO(L).C0.2) l9l 

IE (LB8ID(L) .EQ,A) IbIhaX 
IE (NRSEG.EO.O) GO TO 190 
IE (L.LT.LISEO) GO TO 190 
IE (LBOY(L)) 190,170,190 

170 CALL BNDRY ( X , Y , 1 , 1 1 , 12, LB8I0 (L ) , YINFIN, aINEIN, XOINF, YOINE,ninE , 
INOIM) 

60 TO 230 

190 DO 200 K«Kt,K2 

J9I19(K»K1 )*I8EN 

200 read (5,830) X(1,J),Y(1,J) 

210 IE (LBOV(L).EO,LBDYO) GO TO 2«0 
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Ifc«I 5ui 

Xtt6«X ( I6» lu) 542 

YttfcBVflh.Iu) 543 

GD in 250 544 

240 COMIMUE 545 

X(I,11-ISEM«X35 54fc 

V(I,I1-ISEN)»Y5S 54T 

250 I5«I 54B 

I3«I2 549 

X35«X(15,I3) 550 

Y35»Yn5,I5) 551 

IE (LPHY (U .EQ.LBOY a*n ) GO TO 260 552 

IF (NRSEG.EO.O.ANO.^JUnY.GT.l) GO TO 260 553 

X(I,I2+I8En)«X46 554 

Y(I, 12+I8En)«Y46 555 

260 IF (L.NE.LISEG-1 ) GO TO 270 556 

C*LL ►'AXt'iN (X,IM*X,JMAX,NOTM,X0M*x,xnMTN.IPUM,lPljM,IOLM,IOU^, I, 557 
in 558 

C*LL ^**XMIN (X,T>'*X,JM*X,M0IH,XBM*X,XR>'I>^*ID0>*»TnM^,I0OM,IDUM,l» 559 
11) 560 

270 C0^>TIN<UE 561 

LBOYO«LflOY (L) 562 

280 CONTINUE 563 

on 290 Lil#NH8EG 564 

290 L«OTfL)«IA08(L8nYan 565 

r 566 

C CLASSIFY re-entrant SEGE^^ENTS 567 

C 568 

IF (nRSEC.EO.O) GO TO 350 569 

no 340 L*1,NR8EG 570 

IGOTO«LH8IOa) 571 

GO TO C500,310,320,330) , IGOTO 572 

300 LTYPEfL)"! 573 

IF (LI8ID(L) ,E0,L«8I0(Ln LTYPE(L)«2 574 

CO TO 340 575 

510 LTYPEfL)»4 576 

IF (LlSIOfU ,E0.LP8I0(L) ) LTYPE(U«5 577 

GO TO 340 578 

320 UTYPE(U«1 579 

IF (LI8ID(L) .EO.LPSTDCL)) LTYPE(L)«3 580 

GO TO 340 581 

330 LTYPE(L)«4 582 

IF aisinai ,EQ,L«8IDtU) ) LTYPE(L)«6 583 

340 CONTINUE 584 

350 CONTINUE 585 

C 586 

C PULL OUTER BOUNDARY In FOR INITIAL GUE88 IF INFAC NOT ZERO 587 

C 588 

IF (INFAC, GT.O) CInfac«1,0/FLOAT(2**(1NFAC-1)) 589 

IF (INFAC, LT,0) CINFAC»FL0AT(lNFAC0)/A88(FL0AT(lNFAC) ) 590 

IF (LI8EC,GT,N88EC) GO TO 410 591 

DO 400 L4LI8EG,NBSEG 592 

H9LBKL) 5RJ 

129L82(L) 594 

ICOTO4L08IO(L5 595 

00 TO (360,380,360,380)1 IGOTO 596 

360 IF (IGOTO, EO.n J9l 597 

IF (IGOTO, EO, 3) JbJMAX 598 

00 370 I9ll,12 599 

X(I,J)»X(I, J)*CINFAC 600 
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570 Y(I.J)»V(I,J)*CINF*C 

GO TO aoo 

380 ir (IGOTO,EO,25 I»l 
IF (IGOTft.fQ.a) 

OP 590 

J)*CIMF*C 

590 Y(r,J)*YCI#J)*CI^F*C 

900 COi^TINUE 
C 

C IMITIAL GUESS 
C 

910 CALL GUESSA ( I«AX, JHaX , NdI*^, X , Y, xa»- AX, XpH JN, VPMAX, Y«MI^, VInFI ^,^WS 
lEG.LBl ,L»2,LI1 ,LI2,LH8ID,L18ID, IGES, IGEO) 

905 IF (IPLPT,EU,2) C*LL CPPPLT { X , Y , WOI m , mimhh J , uuMtjB , C 1 , C? , »A T IP , 8 1 Z 
1 E,MCOPV,LIMwT) .LINJWT2, 18KTP1 , IS»<IP2,XPLrT , VPLOT,0TST,IPLTR,^^»LTS, 

? LBS ID.LBl ,LH2,LBDY,LR8IP,LI8I0,LP1 .LP2 .lt I ,L!2,L type, ^BSEG,M 
3P8EG,LI8EG,J«AX, ImaX,X81 ,XB2>YRi , YB2) 

C 

C PRINT INITIAL data 
C 

950 ►RITE (fc.690) 

WRITE (6.680) Cl 
WRITE (6.660) C2 

wRITE(6.670) HDY,Imax,JwaX,RM),JTER.R(2).R(3) 

WRITE (6.860) NBOY 
IF (NBDY.EO.l) GO TO 990 
990 IF (IPLOT) 950,950,960 
950 WRITE (6,680) 

GO TO 970 

960 WRITE (6,690) NCOP V , L I N W T2 , 8 1 ZE , P* T 1 0 
970 CONTINUE 

IF (IWINTL.EO.O) GO TO 500 
write (6.730) 

WRITE (6,790) 

DO 980 JBI.JMAX 
WRITE (6,750) J 

980 WRITE (6,710) (X( I, J) , I«1 , IMAX) 

WRITE (6,760) 

DO 990 Jal.jHAX 
WRITE (6,750) J 

990 WRITE (6,710) ( Y ( I , J ) , !■ I , I M A X ) 

500 CONTINUE 
C 

C ITERATIVE SOLUTION 
C 

CALL 80R (R.X.Y.IMAX, JHAX. ITER. IXER. IYER. IENO,N01M,IwER.NBDY,WAC 
IC.RETA.RXI.LRI ,LR2,LI1 .LI2.LTYPe,NR8EG,TWIR,iaiT,INFAC.INFACO.NB 8E 
2C,LI8E6,Lfll,LB2,L88ID.TACC.lEV,lDI8K) 

C 

C PRINT FINAL VALUE8 
C 

IF (IWFIN.NE.O) 00 TO 570 
WRITE (6.690) 

WR1TE(6.660) Cl 
WRXTE(6.660) C2 
WRITE (6,770) 

60 TO (510.520.550). lENO 
510 WRITE (6,780) 

00 TO 590 

520 WRITE (6,790) ITER 
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GO TO 5a0 661 

530 WHITE (6,80m fbb? 

5fl0 write (6,«10) Hf6T,H(7),»rU),H(<5),lTER 66l 

WRITE (6,550) IXERn),TXERC2),IYERn).IvFw(?) bbH 

WHITE (6,7U0) 665 

DO 550 J«1,JM4X 666 

WRITE (6,750) J 667 

550 WRITE (6,710) (X ( I , J) , I«1 , I”*X) 665 

WHITE (6,760) 66R 

no 5t>0 JaliJMiX 670 

WRITE (6,750) J 671 

560 WRITE (6,710) ( V ( I , J ) , I ■ 1 , I H A X ) 672 

WRITE (6,640) 673 

570 IE (IDlSt<.EO.O,nH,TDI8K,EO,3) G(0 TO 600 674 

WRITE (lO.RSO) Cl 675 

WRITE (10,480) C? 676 

TE (IDI8K.E(3,4) GO TO 580 677 

wRITE(10,6Z0) IWAX, j«*X,^nSEG,4R8EG,LISEG,NBDy 678 

wRITE(10,981)(L88ina),L81(L),LH2(L),LBOY(L),LSE^a),L«l,N8SEG) 679 

write ( 10,982) (LRS In (L ),LRnL),LR?a),lISID(L),LllfLT, 112(1), 66 0 

ILTYPE (U ,L«1 ,HHSEG) 681 

60 TO 590 682 

580 wRITE(10,981) IMAX,J“AX 663 

5R0 wRlTE( 10,983) ((X( I, J),I»1,ImAX),J»1,Jm*x),((Y(1,J),1»1,ImAX),J*1, 684 

UMAX) 685 

600 C06T1HUE 686 

687 

PLOT 688 

684 

IE (IPLOT.GT.O) go to 6in 690 

STOP 3 641 

610 call CnRPLT (X,Y,NOIh,NUmrRi,NumbR, C l, C2, RATIO, SIZE, NC0PY,L1HHT1,L 642 
i INWT2, 18KIP1 , ISKIP2,XPL0T, YPLOT.PTST, TPLTR,HPLTS,LB8ID,LB1 , 643 

2LB2,LBDY,LR8I0,LI8ID,IR1,LH2,LI1 , L 12, LTVPE , a-BBEO , NRSEC, L 1 SEG , JM AX , 644 

3IMAX,X81 ,XB2, Y81 , YR?) 645 

IE (IPLOT.GT.O) call PLOT (0.,0.,444) 646 

STOP 0101 697 

C 648 

620 EORMAT (1615) 644 

630 FOPMAT (8E10.0) 700 

640 FORMAT (IHl) 701 

650 EORMA7(8A10) Z02 

660 FPRMAT(21X,6A10) 703 

670 format {/3TX,*BODY-EITTEO COOHOINATI SYSTEM*//21X,*TRAH8F0RMED bod 704 
lY, A, 8A10//21 X, afield parameters, NUMBER OF XI-LINES MA.IR/SBXfA N 70S 
2UMBER OF ETA.LIHES • a,14///14X,a ITERATION PaRAMETERSI 80R ACCEL 706 
5ERATI0N parameter • a,F8,5/42X,a maximum number OF ITERATIONS ALLO 707 
4MEO • a,I4/34X,a allowable ITERATION ERROR NORMS! X| a, £10,5/75 708 

5X,a Yi a,E10,5) 704 

680 format (/21X,aN0 PLOTS OESIREDa) 710 

640 format (/21X,aPL0T PARAMETERS! COPIES DESIRED ■ a13/37X,a lIhEa, 711 

lAWElCHT desired ■ A13/34X, AFLOT SIZE IN Y-DIHECTlON ■ aF5.3/34X,aR 712 

2ATIO ■ a,F5.3) 711 

700 format (aOwa. error • IMAX TOO LARGEa, lOX, aIMaXba, I5,5X, AMAXIMU 714 
IM I8a,I5/16X,aINCREA8E NDIM in oaTa STATEMENT ANDA,a FIRST D1MEN3I 715 
20N OF X,Y,RE7A,RXI,WACC,TACC,*/16X,aAL80a,a INCREASE DIMENSION OF 716 

3XPLOT AND YPLOT TO MAXIMUM DFa,a NOIM AND NDIMl Pi u8 2, A) 717 

710 format (4X,10F11,5) 71S 

720 FORMAT (aOw- ERROR — • JMAX TOO L ARGEa, I OX , a JMAXba, T5,5X , am A X I mU 714 

IM 18a,I5/16X,a1NCREA8E NDIMI in DATA STATEMENT ANOa,a SECOND DIMEN 720 
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fr^XPlOT AWn* j*^^'*^^^*'**’-®^*'* INCREASE niMENglO^ 0 

GUESSES FOR X AND Y*) * ^ 

7U0 format t/5Y, 33 ( 1 H*) , 9Y, tXoARHA Y*ex,53f 1 h*) ) 

750 format (5X,Aj«*Ifl) 

760 format (/5X,35nH*),9X,*Y.ARRAYA8X,53ClH*)) 

770 format (/51x,*final values*/) 

780 format (21X,*ITERATI0N DIVERGES.*) 

800 FORMAT (21X»*ITEPATI0N CONVERGES,*) 

810 FORMAT (/21X,*1NITIAL ITERATION ERROR NORMSi xi *,E10 5,* vt * F 
iterate * 1*/21X,*EINAL ITERATION ERROR*,* NQRMSl t\ 
2*»E10,5,* V) *,E10,5,* at iterate F*.!^) 

820 format (2I5,F10.0) 

830 format (2F10.0) 

860 format f /21 X, *NUM8ER OF BODIES IN FIELD |*15) 

880 FORMAT (Il5)^^°'*^ ACCELERATION PARAMETER USED.*) 

890 format (615) 

900 FORMAT (7F10, 0,215) 

l*«gf*.iox,*nb8eg-*.i5,5x,*maxi 

^20 FOWHAT C*0*«« ERROR •••• NR8E6 TOO LARGE** lOX «*NRirr:B* Tl cv amavt 

pa^0F\*RRTn^*Sf'ri>'^'’^*’^ mnrseo in. data statement ano»I* dimension 
LR8ID,LRl,LR2,LI8ID,Ln,Ll2,LTVPE,*) 

*^^°i*LR2l^2X**LT*TDnv*^l^T?^®!!y^^*""*^^**'*‘-*'*’‘**‘-'^**®*»“*»*‘-Rl*,6X, 

_ **LK<*#PX#*LISI0*#^X#*LIl*#ilX,*LIP*//(l4,6T7)) 

'•?**°i^I^’’-®°^'^°*’’T«.*//5X,*RADIU8 ■*,F12.8,10X,*1 nitiAL AN 
20F*P0lCT8*i! ^ ■**T11,8//3X,*NUM8ER 

960 format (215,2F10,0) 

970 FORMAT (*01NITIAL GUESS TVPEl*,I9) 

980 FORMAT! 8A10) 

981 F0RMAT(5I5) 

982 F0RMAT(715) 

983 F0RMAT(8E16.8) 



1010 format (*0NB8EG,NR8EG 1*,2I5) 

lOIO^FORMAT TR09C1), 9(2), R(3),VINFIN,AINF1 N,XOINF,VoINF, NINE l*/7F15.8, 

1030 format (*OIEV,IAIT,R(10) I*,2IS,F15,8) 

1040 format (*0INFAC,1NFAC0 I*, 215) 

**®®*«»»*T10,0I8T,XBl,Xa2,YBl,YB2*,7F12.8) 

1060 format ( 1 X, 17 ( 1h*) , * input *,30(1H*)) 
lOTO format (IX.HOdH*)) 

1080 format (*08IMPLY»CONNECTED region*) 

End 
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SUHBOUTIi^C 0NDHY ( X , Y » IJ # 1 1 » 1 2 »L8ir) » R * * * XP» Y0» M Nl' » N ) 


C 

c 

c 

c 

c 

c 


circular outer BOUKOiHY 


* TWTS ROUTINE calculates nine X»Y COORDINATES AROUnO A CIRCLE OE 
; SAlJurriTEojALLY spaced ANGULAR INCREMENTS STARTING AT ANGLf A 
(POSITIVE C0UNTER»CL0CK'“18E EROM POSITIVE Y-AXIS) AND PROCEEDING 


CLOCLOCKwISE EROM THIS ANGLE, 


C * 

C *************************** 

dimension X(N,1), Y(n,1) 

DATA PI/1, tai59265TSR/ 


C*A*** 

KlBMIN0(Il»12) 

K?aHAX0(IlfI2) 

ISENbI 

IE (I1,6T.I2) ISENb-I 
IXmibnine 

DB-2,0*PI/ELOAT(IXM1) 

GO TO (10,30,10,50), L8ID 
C**** BOTTOM OR TOP 
10 DO 20 K«K1,K2 

IBI1Y(K-K1)*ISEN 
X(I,IJ)«R*C08(A)+X0 
Y(I , IJ)«R*8IN( A)+Y0 
20 A*A*0 

GO TO 50 

50 DO 00 K*K1,K2 
C**** LEET OR RIGHT 

Jb11y(K-K1 )*I8EN 
X(IJ,J)«R*C0S(A)yX0 
Y(IJ, J)*R*8IN( A)+Y0 
00 AbA^D 
50 CONTINUE 
return 
c 

END 


C 

C 

C 

c 

c 


subroutine CORPLT (X , Y *'^01M,nUMBRI ,NUMBR,C1 ,C2,RATI0,81ZE,NC0PY ,li 

1NWT1«LINwT2,18K1P1,I8KIP2,XPL0T,YPL0T,DI8T,IPLTR,NPLT8,LB81 

20,LB1,LB2,LBDY,LR8ID,LI8IO,LRI»LR2»L11,LI2#LTVPE,N88EC,NR8EG,U8EC 

5,JJMAX,IIMAX,XB1,X82,Y81,YB2) 

** PLOT ROUTINE • PLOTS COORDINATE SYSTEM AND SEGMENT DIAGRAM ****** 


DIMENSION LSSlO(l), LBKl), LB2(l), LBOY(l), LRSID(l), LISIOU), I 

cud. «<d. 

IAX1SL(2)* XA(6), YA(fc) 

DATA SCAL /O.l/ 

DATA 81 /0.0ST5/ 

DATA 82 /0.175/ 
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803 
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DAT* Hft /l,o/ 
DAT* H9 /0,5/ 


isr «27 

JMAXsNUmbR 
ImaxbNUMBHi 
H1«0,5*81 
H2*l,5*81 
H3»0,5*S2 
H<i»l ,5*82 
K5«0, 25*81 
H6 b2,0*81 
H7b1,5*S2 
ImaxMIbImax -1 
C 

C AXI8 SCALE FACTOHS 


C 

c 

c 


c 

c 

c 


c 

c 

c 


10 


20 


CALL MaxmTN 
1»I8KIP2) 
CALL MaxmIK. 
1 *I8KIP2) 


tX,lM*X,JMAX,NDlH,XMAX,Xf*TN,IXMX,JXMX,IXfM,JXM|S.,I8KlPl 

CV, rMAX,JMAX,WDTM, Y m4X,VmIN.IXWX, JXMX,IX hN, JXMN,I8KIP1 


XMAX»AMINI(XMaX,XB2) 
XMINbAMAXI (XM1N,xb1) 
THAXBAMIMI (YMAX, YB2) 

YMlNBAMAXl(YMrN,YRj ) 

XIBXMIN 

YIbVMIN 

FXI8L(2)«8IZe 

IF (RATIO) 10*10,20 

y 2 B(VM*x-YMl^)/AXI 8 L( 2 ) 

X2bY2 

AXI8L(1)b(XMax«xmin)/X2 

60 TO 30 

AXISLd )BAXI8L(2) 

X2B(XM*X.XMIN)/AX18L(n 

V 2 B(YM*x.y«IM/AXI 8 L( 2 ) 


SET UP PLOTTER 


SO CONTINUE 
NPLTBP2 


LABELS 


CALl^ 

CA^h !,^”5°^f**f*°®l'*0®^5,C2,90.,80) 

CALL PLOT (l.,0,*-3) 

CALL PLOT (0, ,9,99*2) 

CALL PLOT (.5, ,5,-3) 

PLOT LINES OF CONSTANT ETA 
K«0 

00 uo I«1#IMAX,I8K1P1 

iJ 60 TO ^0 

J^'^)i8T«YB8.0R.Y(r,J).LT,YBn GO TO 40 
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887 
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KBK^l 

)tPLf'T(K)*X{I,J) 
yPLOT(K)«Y(I,J) 
un continue 

xPLOT(K*l )»Xl 
XPLOT fK+2)«X2 
VPLOT (K + n«y I 

yPLOT{K+2)»y2 

50 C*LL LINE tXPLOT,yPLOT,K, 1,0,0, .071 


C 

C 

C 


C 

C 

C 


PLOT LINES OF constant XI 


on 70 I»! ,1HAX,ISKIP1 
K«0 

00 60 J«1,JNAX,ISKIP2 

IF (X(I , J1 .GT.XR2.0«.xn»JI .LT.XBI) 
IF (y(i,J).GT.yR2.0P,yn»J).LT.yBt) 
KaK^l 

XPL0T(K)*X(I, J1 
yPLOT(K)«y(i,Ji 
bO CONTINUE 

XPLOT(KAl)«Xl 

XPL0T(K*21«X2 

yPL0T(K7l)»71 

yPL0T(K*2i«y2 

70 C*LL LINE (XPLOT, yPLOT,K, 1,0,0, ,07) 


GO TO 60 
GO TO 60 


segment configupation diagram 


CALL RLOT ( AXISLt 1 1*2.0» 1 ,0,-5) 
jmaxbjjmax 

IMAXbIIMAX 


C**p* BODY SEGMENTS **** 

C 

DO too L»1»NB8EG 
D1*LB1 (L)*8CAL 
02»LB2tL)*8CAL 
IGOTObLBSIO(L) 

60 TO (80,90,80,90), lOOTO 
so IF (LB81D(L).E0,1) DJbSCAL 
C**«* BOTTOM OR TOP 

IF (LB8ID(L).EQ.3) D3«JMAX*8CAL 
LWTb»? 

IF (L.GE,L18E<»5 LMTb"1 

IF(IPLTR,E0,1.0R.1PLTR,EQ,2) call LINhT(IPLTR,LWT) 

CALL PLOT (Ol,D5,3) 

CALL PLOT (OJ,D3,*) 

IFdPLTR.EO.l.OR.IPLTR.EQ.Z) 

IF (LBSID(L) .EO.l) H»-H2 
IF {LB81D(L).EQ,3) MbH*« 81 
HH*8IGN(Ha,H)»S2*( l.OASlONd ,0,H) )*0,S 
HHHb8ION(HS,M) 

call number (Dl»Ml ,039H, 81 , float (LSI (L) ) » o,o,»n 
CALL NUMBER (02«Hl ,039H, ll , FLOAT (LB2 (L ))» 0, 0,-1) 

IFdPLTR, EO.l. OR, IPLTR, EO.l) CALL LINWTdPLTR.-l ) n.TM.nvf 

IF (L.LT.LIIEO) call number ((01601)*0,5-H3,D59MH»82,FLOAT(LBOV( 

' 1F(l!oe!lI 8E8)CALL SYMBOL! (01*0*)*0,5-MS,036HH,82,I8Y,0,0,-1 ) 
IFdPLTR, EO.l. OR, IPLTR, EQ. 2) CALL LINMT dPLTR, 0) 


call LiNWTdPLTR.O) 


901 

902 

903 
90a 

905 

906 

907 
90S 

909 

910 

911 

912 

913 
910 

915 

916 

917 

918 

919 

920 

921 

922 

923 
920 

925 

926 

927 

928 

929 

930 

931 

932 

933 
930 
955 

936 

937 

938 

939 

900 

901 

902 

903 

904 

905 
946 

907 

908 

909 

950 

951 

952 

953 
950 

955 

956 

957 

958 

959 

960 
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fOl»03+HHH,3) 
(D1 ,P3 -Hmh,2) 
(D2,D3+hmh,3) 
(P?,03-hhh,2)' 


C*LL PLOT 
c»LL Plot 
C*LL PLOT 
CALL PLOT 
60 TO 100 

C**t* LEFT PK RIGHT 

’0 IF tLBSlDCL) ,EQ,2) 03»SCAL 

IF (LPSTOfL) .FtJ.a) n3«IHAX*8CAL 
LwT*-2 

IF (L.GE.LISEG) Lht «-1 
IFdPLTR.EO, 1 .OR. IPLTR.IO.2T 
CALL plot (03,01,3) 

CALL PLOT (03,02,2) 

IFdPLTR.EO.l .0R.IPLTR.EO.2) 

IF (LB8ID(U .E0.2 ) Hb>H 6 
IF (LBSIDCL) .EO.U) H«H6-S1 

HH«8IGN(M7,H)»82*d,0A8IGN(l,n,H))*o.S 

HMH«8IGM(M5,H) 

CALL WDMBER C03*H,0t ,81 ,FLDAT (LBl (LI ) ,0.0,-n 
call number (03*H,02,8l.FLPAT(LB2(U),0.o|-n 

IF (IPLTR.EO. 1 . OR . 1 PLTR , EQ , 2) CALL L Inw T (TPL TH , • 1 ) 

1 (L.LT.LISEG) CALL NUMBER ( 03 + HH , (o t *02 ) *0 . 5 , 82 , FI OA T (LBO Y ( I ) ) 

rr# ToI*TD'‘Jn^?^nn'‘L * ^ *^ **° L ( 0 3 ♦ H H , (01«’02)*0.5,82, lSY,0.n,«l ) 

IF (IPLTR . EO . 1 .OR . I PI TR , EO , 2 ) CALL L INhT (JPlTR, o ) 
call plot ( 03 +hhh, 01,3) 


Call L IN»<TdPLTR,L wT) 


CALL LINi»t dPLTw, n ) 


100 


call plot 

CALL PLOT 
CALL PLOT 
CONTINUE 


(03«hhh,01 ,2) 
(n3+HHH,D2,3) 
(D3»mhh,D2,2) 


C*A** RE-ENTRANT SEGMENTS *•** 
C 


IF (NR8EG.EQ.0) GO TO 260 
00 250 L»1,NR8EG 
Dl«LRl (L)*8CAL 
02«LR2(L)*8CAL 

IFdPLTR.EO. I .OR, IPLTR.EQ.2) CALL LI NwT (IPLTR , 0 ) 
IG0T0 bLR8ID(L) 

GO TO (110,120,110,120), IGOTO 
C**A* BOTTOM OR TOP • FIRST OF PAIR 
110 IF (LPSIOtLl.EO.ll 03P8CAL 

IF (LR8ID(L) ,E0.3) 03«JmaX*8CAL 
CALL PLOT (01,03,3) 

CALL PLdT (02,03,2) 

GO TO ISC 

CAPA* LEFT OR RIGHT • FIRST OF PAIR 
120 IF (LBSIO(L) .EQ.2) D3P8CAL 

IF (LR8I0(L),E0,«) OSpIHAXaSCAL 
CALL PLOT (01,01,3) 

CALL PLOT (03,02,2) 

ISO D4«LI1 (L)ASCAL 
05aLI2(L)A8CAL 
I60T0aLI8ID(L) 

60 TO (1«0, 150, 1«0, 150) , IGOTO 
Caaa* BOTTOM OR TOP • SECOND OF PAIR 
UO IF (LI8ID(L) ,E0, 1 ) 06«8CAL 

IF (LI8I0(L) .EG.S) D61JMAXa8CAL 
CALL PLOT (00,06,3) 

CALL PLOT (05,06,2) 


96) 

962 

963 
96« 

965 

966 

967 

968 

969 

970 

971 

972 

973 
97« 

975 

976 

977 

978 

979 

960 

961 

962 
983 
986 

985 

986 

987 

968 

969 

990 

991 

992 

993 
999 

995 

996 

997 

998 

999 
1000 
1001 
1002 
1003 
1009 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
lOlS 
1019 

1015 

1016 

1017 

1018 

1019 

1020 
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CO TP 160 

C***# LEFT OH RIGHT - SECONP OF P*1R 
150 IF (LTSIDd) .EQ.2) P6-8CAL 

IF (LISIP(L) .EQ.iO P6«IHAX«8C*L 
CALL PLOT (D6,n0,31 
CALL PLOT (06,05,2) 

dotted LINES CONKjECTInG hE«EnTHANT SEGheNTS **•* 

160 TF(IPITH,EQ,1.0R,TPLTR,EQ,2) call LINhT(IPLTH,2) 
ICOTO»LTYPt (L) 

GO TO (170,180,190,200,210,220), ICOTP 
C***o ONE ON BOTTO", ONE ON TCP 
170 X * ( 1 )• (01 ^02) AO , 5 
YA(1)«03 
XA(2)«XA( 1 ) 

YA(2)«YA(1)-H8 
XA( J)«IhaX*SCAL*h8 

IF (2.0*O2.LT.FLn*T(IHAX)*SCAL) XA(3)*-H6 
YA(3)«YA(2) 

XA(U)*XA(3) 

YA (UIbJHAXaSC ALaHB 

XA(5)«(C«*D5)*0,5 

YA(5)*YA(a) 

XA (6)«X A (5) 

YA(6)»D6 

NA*6 

CO TO 230 

CAAA* both on HOTTOH 

leo xa(i )«(niA02)*o,5 
YA( 1 )«D3 
xa(2)bXA(1) 

YA(2)«YA(1)-H9 

XA(3)«(0«aD5)*0,5 

YA(3)»YA(2) 

XA (a)»XA (3) 

YA(U)«D6 

NAbU 

CO TO 230 
C*AA* BOTH ON TOP 

IQO XA(l)»(01t02)*0,5 
YA(1)*0J 
XA(2)aXA(n 

YA(2)>YA(nAH«> 

XA(5)»(0«a05)*0,5 

YA(3)«YA(2) 

XA(a)lXA(3] 

YA (tt)a06 
NAatt 

CO TO 230 

Ca*** ONE ON LEFT, ONE ON RIGHT 
200 XA(l)a03 

YA( l)a(Dl4D2)*0,5 

XA(2)aXA(n»H8 

YA(2)bYA(1) 

XA(3)BXA(2) 

YA (5)bJMAX*8CALaH8 

IF (2,0*02,LT.FLOAT(JHAX)*8CAL) VA(3)b-H6 

XA(R)bIHAX*8CALTH8 

YA(tt)BYA(3) 


1021 

1022 

1023 

102a 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 
lOia 
1035 
1056 

1037 

1038 

1039 
lOttO 
loai 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 
1051 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
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**( 5 )«x*{a) 

V* (5 ) ■ ) *n , 5 

X* (6)aD6 
Y* (6)aY* (5) 

N/A«6 

GO TC) 230 

C**»* BOTH pNi left 
XA(1).D3 

YA(n*(Dl*r'2)*o,S 
XA(2)«XA(n.H9 
YA(2)aYA(l ) 

XA (3)«XA (2) 
Y*(5)«(D«+D5)*0,5 
XA(«)bD6 
YA(<»)«ya(5) 

Hkmu 


GO TO 230 

C***« BOTH OH BIGHT 

220 XA(n*D 5 

YAn)«(Di402)*0,5 

XAf2)aXA(l)+H9 

YA(2)aYAM) 

XA(3)aXA(2) 

YA(5)*(00^05)*0,5 

XA (a)aD6 

YA(a)aYA(3) 

HAaa 

c 

C PLOT DOTTfO LINES 
C 


C 

C 

c 


230 

2«0 

2S0 


CALL PLOT {XACn,YAm,3) 

DO 2U0 N■2,^A 

CALL PLOT (XA fOg) , YA (N) ,2) 
CONTINUE 


tebhination sequence 


2fc0 CALL PLOT (8 CAL*ELOAT(IHaX)*2.o 
CALL NEBamE 

BETUBH 

c 

END 


- 2 . 5, -31 


SUBROUTINE LINWT(IPLTB,IPEN) 

***************** S£i3 Plot line ncight 


GO TO (10»20), IPLTR 
10 CALL LINEWT(IPEN) 
RETURN 

20 CALL PEN8L (IPEN) 
RETURN 

end 


lOBl 

10B2 

1083 

1 oa« 

1 OBS 
1086 

1087 

1088 
1089 
1 090 
1091 
1 092 
1093 
1 099 

1095 

1096 

1097 

1098 
1 099 
1100 
1 lot 
1 1 02 
1 103 
1 1 OU 
1 1 05 
1 1 06 
1 107 
1106 

1109 

1110 
1 1 1 1 
1112 
1113 
1 119 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 
1123 

1129 

1125 

1126 

1127 

1128 
112^ 

1130 

1131 

1132 

1133 
1139 

1135 

1136 

1137 
1 13S 
1139 
1190 
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c 


FU'"rTIO'^ EHROW t V^'E" » VOLD I EBRf'Ur' , 1 FLD , JFLf' # I VEM ) 

DI^'E^S10^' T VER ( t ) 


maxT“Iim nHRm of iterate change 


i«***i»****i 


c 


T»AR8(V^ER-'^riLl^) 

IF tT.LF.ERHOLDi GO TO 10 
1VEB( 1 )»lPun 

I VE»(2)«JFL0 

erro»»t 

RETUR^< 

10 EBRORbERROLO 

hETURR 




9I.HBOOTINE GUES8A ( T « a X , JR A X , MO T “ , X , V , XRR AX , XB*'- 1 N , YBM A X , V BR I V , Y 1 NF 
ti^',MRSEr^fLRlfLf^2rLn rLI?#i^^5!n,Ll8IOfIGFSiIGEf^) 

C ♦♦♦**»****#*****#*^*#**<k<^<r IMTIAL GUESS <r •****#♦********<»★ A * a* 

C * ##*****<it********^*** 

^ DIHEtsiSION Y(^01^^,l)^ L«nn» Lf*2(n# Llicn# LI2CI)# LK 

15ID(1)| Lision) 

C****A 

ICE88«IGE8 

IF(IGE8,EQ.2.0H.TGE8.GE,51 IGE8«0 
JRXMl ■JRAX-1 
IMXM1»IRAX»1 
C 

c PROJECTION FROM BODY SEGMENTS 
C 

IF (IGES.NE.O) GO TO 30 
Tl»0,l*nGE8S-«) 

ARG2»TI*JMXM1 
T2«I,0/(EXP(ARG25-1 .0) 

ARG3«Tl*IMXMl 
T3«l,0/tCXP(ARG3)»l.01 
DFAC«1 ,0 
OFACC«l ,0 

IFdGED.EQ.n DFACC*0,0 
IF(IOED,EO,2) OFAC*0.0 
DO 20 J»2,JMXHl 

IF(IGES8,GE,5) GO TO t> 

FAC»FLOAT(J-n /float CJRXMU 

60 TO 7 

b ARG1*T1«(J>1 } 

FACR(EXP(ARGn-l .0 ) aT 2 
7 CONTINUE 

DO 10 I*2,IMXM1 

1F(IGES8,GE,5) 00 TO S 
FACC«ELOAT(I-l) /FLOAT (IMXMn 


I lal 
1 1<*2 
11U3 

I I uu 
1 1 U5 
1 t ufe 
I ia7 
1 1R8 
1 1 u9 
1 ISG 

1151 

1152 

1153 
1 15U 
1155 
I 15h 
1157 
115B 
1159 
I IbO 
libl 
1162 
1163 
1 IbU 

I 165 

I I 66 

1167 

1168 

1169 

1170 

1171 

1172 

1173 
117U 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 
1183 
118U 

1185 

1186 

1187 

1188 
1169 

1190 

1191 

1192 
119J 
119a 

1195 

1196 

1197 
1196 

1199 

1200 
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C 

C 

c 


GO TO 4 

8 ARGl«Tl*CI»l ) 

FACC»(EXP(ARcn.l ,0)*T3 

9 CONTIMUE 


IF nGE88.E0,?,0R.lGFS3.GE,5) GO TO JO 
IFtOFAC.EO.O.O.OR.DFACC.EO.O.O) GO TO JO 
X(I»J)*0,5*X(I, J) 

V(I»J)«0.5*Y(I, J) 

10 CONTINUE 
20 CONTINUE 


RE«ENTRANT SEGHENTS 

30 IF (N98E6,E0,0) GO TO JttO 
00 ISO L*1,NR8EG 
IlRLRl (U 
12*L»?(U 
II1»I1+1 
II2al2-l 
IG0T0»LR8ID(L) 

GO TO (fl0,60»U0,60) , IGOTO 
«0 IF (LRSID(L).EO.l) J«1 

IF (LR8ID(L) .EO.Sl JbJMAX 
0X*X(I2,J)-X(I1,J) 
DV»V(I2,J)-V(It, j) 
0X*DX/(I2-Il) 

0Y»0Y/(I2«11) 

DO 50 1«III,1I2 
00X»(I«I1 )*DX 
D0Y«(I-I1)*0V 
X(I,J)bX(II, JJ tODX 
50 V{I.J)»Y(I1 , JJ+OOY 

60 TO 80 

80 IF ai»810(L) ,E0,2) I«1 

IF (LR810(|.) ,EQ,«) T«lM*x 

ox«x(i,i 2 )-x(i,in 
0YBYn,I2)-Y(I, II ) 
0XFDX/(I2«in 
DY»DY/(I2.in 
DO 70 J*in,II2 
DDXB(J.ln*OX 
DOY»(J«ln*OY 
x{i,j)«x{i,in40Px 
70 Y(I,J)9V(I,in+D0Y 
80 I1*LI1(L) 

I2«LI2(L) 

IIlRll^l 

II2«I2»1 

I80T0«LI8XD(L) 

00 TO (90,110,90,110), IGOTO 
90 IF (LI»ID(L).EO.n J «1 

IF (LI81D(L),E0,3) J«JMAX 
DX»X(X2,J).X(I1,J) 
DV*V(X2,J)-Y(X1,J) 
0X«0X/(X2-X1) 

0Y»DY/(X2*11) 


1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
121 1 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 
1212 

1233 

1234 

1215 

1216 

1237 

1238 
1219 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
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00 100 I*1II»II2 
DDX*(!»in*0X 
oov«(i»in*Pv 
X(I,J)»XCIliJ)tDOX 
100 V(I,J)«V(I1 ,J)*DDY 

GO TO ISO 

110 IF (LI81D(U ,t0.2) I"l 

IF (LI8ID(L).C0.«5 I«!mFX 
D«BX(I,I2)-X(I,in 
DY»Y(i,i2)-y(i.in 
DXrDX/(I2«I 1 ) 

OYUDY/dZ-Il) 

DO 120 JbII1«II2 
DOXb(J«I 1)*DX 
0DY»( J-in*OY 

x(i, j)«x(T,in*pr>x 

120 Y{1,J)»Y(1,I1)+DDY 

130 CONTINUE 
1«0 IF (IGEB.EQ.O) RETURN 
C 

c LINEAR PROJECTION . IGE8»l 
C 

IF (I6E8,NE,n GO TO 170 

OFACBl.O 

DFACCPl.O 

IFdOEO.EQ.n OFACC«0.0 
IFdCE0.EQ,2) DFACbO.O 
DO 160 J«2,JNXM1 

FAC*FL0AT(J-n/FLOAT(jMXNn 

DO 150 Ip2»I^'X^1 

FACCBFLOATd-D/FLOATdNXNll 

Xd,J)«(X(I,l)^fXd» JNAX5*Xd,l))*PACl*0FAC^((XdMAX,J)-Xd,J) 
Yd»J)P{Yd»n*(Yd»JN*X)«Yd,n)*FACl*DFAC*{(YfIHAX,J)-V(l»J) 

1)*FACC*Y(1,J) 5*0FACC 
IF (OFAC.GT.O .O.OR.OFACC ,GT , 0,0) GO TO 150 
X(I,J)«0.5*Xd,J) 

Yd,J)«0,5*Y(I, J) 

150 CONTINUE 

160 CONTINUE 
RETURN 
C 

C MOMENT OR EXPONENTIAL PROJECTION 
C 

170 8N*2*dMAX*JMAX}-tt 

OMiltORT (FLOAT ( (IMAX-n**2*(JNAX-n*»2) ) 

DM«dAB8d6E8))/DM 
DO 210 JatfJMXMl 
DO 210 Ip2#1HXM1 
8Xb 0,0 
SYtO.O 
SDrO.O 
8X0R0.0 
•YOpO.O 
IXMvO.O 
8YMV0.0 
SErO.O 

DO 180 IlPldMAX 

SXp8X^XdI.l)YXdI,JMAX) 

8YR8Y^YdI»n7YdI,JNAX) 


1261 

1262 

1263 

1264 

1265 

1266 
1267 
126B 
1260 

1270 

1271 

1272 
1275 

1274 

1275 

1276 

1277 
127B 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 
1500 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 
1515 

1316 

1317 

1318 
1519 
1320 
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D»IAB8{Il«n 

D2«IAB8 ( 

DaD**2 

0U8WRT (0 + Dl **2) 

D2*80RT (0AD2**?) 

8I>*8DADUD2 

8X0«8XDAX(II,n*0l*X(n,JMAX)*n2 
SYD«SV0*V(II,1 )*()UV(II, JM*X)*D2 
E1»EXP(-01*DH) 

E2rEXP{-D2*0M) 

8XMBSXMAXfII,l)*El+X(II,jMAX)*E2 
8VM«8Y« + Y(II,n*Cl+Y(II,JMAX)*E2 
8FM8EAEUE2 
180 CONTINUE 

00 190 JJ«2,JMX‘-1 

8X»8X4X(1,JJ)aX(IMaX, JJ) 
SY»8YfYn, JJ)«.Y(IMaX, JJ) 
D»IAB8(JJ-J) 

D2aIAB3(lMAX-n 
DaO**2 

01*S0RTf0ADl**2) 

02*80RT(0tD2**2) 

8DI8DA01AD2 

SXObSXDaX ( 1 , JJ)*OUX(IMAX, JJ)*02 
8Y0«8YDaY(1 . JJ)*DUY (IMAX, JJ)*02 
C1rEXP(.01 *DM) 

E2«EXP(p02*DM) 

8XM*8XM*X(l ,JJ)*EUX(TmAX,JJ)*E2 
8YHb8YM + Y(1 , JJ)*EUYCImAX, JJ)*E2 
8E«8EyEUE2 
190 CONTINUE 

IE (IGE8.E0.3) SO TO 200 

EXPONENTIAL projection - IGE8<0 

Tl«l ,0/SE 
X(I> J)bT1*8XM 
Y(I,J)»T1*8YM 
GO TO 210 
200 CONTINUE 

MOMENT PROJECTION • ICES* 3 OH tt 
Tim. 0/80 

IE tIGES.EQ.l) T1BT1/8N 
X(I.J)P(S0*8X-8XD)*T1 
Y(I» J)P(8D*8Y-8YD)*Tl 
210 CONTINUE 
RETURN 
C 

END 


^subroutine MAXMIN (X, IMAX, JMaXi NOIM, XMAX.XMIN, IMX, JMX, IMN, JMN» IIKI 


1121 

1322 

1323 
1 320 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 
1330 

1335 

1336 

1337 

1338 

1339 

1300 

1301 

1302 

1303 
1300 

1305 

1306 

1307 

1308 

1309 

1350 

1351 

1352 
1553 
1350 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 
1360 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 
1370 

1375 

1376 

1377 

1378 

1379 

1380 


C 
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c ***» THIS SUH»0uTINiP calculates TmP h**!*-!!** and MIMIHUM VALuFS *♦»*** J581 


c *A*A or A T*o-^)IME^sIn^iAL Data a»hat, **aaa* us? 

C * 1383 

c * T^PllT DATAI 156<J 

C * 138S 

C * X»?»D data ARPAY ►hose haxIHUH & HIMHUH IS TO »E OETERHlNEn 1386 

c * IhaX«LARGE8T value or first subscript nr X to be SCAHnEo 1387 

c A jmax«largest value of secoho subscript nr x to be scarred i38b 

c • R0IH»1ST OIMERSIOR OF X 1389 

C * ISKIP1«SKIP parameter for 1ST INOEX OF X (THE I IROEX) 1390 

c • iSKiP 2 «SKiP Parameter for 2nd irdex of x (the j irdex) I39i 

C * 1392 

c A OUTPUT DATA I 1395 

C A 1399 

c A X‘'AX»MAXIMUM or X array 1395 

c A 1MX,JMX»I,J LOCATION or XMAX 1396 

c A XMINbmIMmUM or X ARRAY 1397 

c A Imn,JmnbI,j location of X«IN 1398 

c A 1399 

C AAAAAA*AA*A***A******A****A*AA**A*A**A******«*A***AA***A*AAAAAA*AAAAA lUQO 

C 1901 

DIMENSION X(NDIM,n 1“02 

CAAAAA 1903 

XMAXCX(1,1) 1909 

xMiN«x(i,n IU05 

IMXb! 1906 

JMXil 1907 

Imn«j 1U08 

JMNbI 1909 

DO 20 I»1 , IMAX, I8KIP1 1910 

on 20 J«1 I JMAX, I8KIP2 1911 

IF (X(I,J).LT.XMAXJ go to 10 1912 

XMAX«X(I,J) 1913 

IHXSI 1919 

JMX«J 1915 

10 IF (Xn.JI.CT.XMIN) SO TO 20 1916 

XM1N»X(1,J) 1917 

ImnbI 1918 

JMNaJ 1919 

20 continue 1920 

RETURN 1921 

C 1922 

END 1923 

1929 

1925 

1926 

1927 


SUBROUTINE PARA ( XXI , YX I , XET A « VCT A ACC >CF AC , RET A , RX I , C8I » CS J * H ACC 1928 


1,R»T,acCL.ACCLI,NDIM,I,J,IweR.TaCC,1EV) 1929 

C 1910 

c AAAA cncrriClENTS and variable acceleration parameters on aaaa*aaaaa 1931 

c aaaa RE-ENTRANT SEGMENTS aaaaaaaaaa 19]2 

C A 1933 

c AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 1439 

C 1935 

DIMENSION RETA(NOIM,n, RXlCNDIMfUf MACCINDIM^I), R(l)f T(l) 1936 

DIMENSION TACC(NOIM,n 193? 

DIMENSION IMER(l) 1938 

REAL JACBSfJSAG 193* 

INTEGER TACC 1990 
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LOGICAL L*CC lUijl 

C***** ja«2 

UACC(BJ)*2,0/(1.0tflO»T(l,0*Rj**2n ia«5 

OacC(RJ)«2.0/( 1 .0 + 30RT (1 ) \uuu 

ALFA«XETA**2+YETa*#2 14U5 

CA»'4BXXI**2*vyi**2 1446 

AG*1,0/(ALFA+GAMA) 1447 

JAC«>8*tXXI*YETA-XCTA*Vxn**2*CFAC ia48 

JSAGbJACH8*AG*0.0625 1449 

lUSO 

variable ACCELERaTIQm PaRa^-ETER 1451 

IU52 

IF (LACC) go TO no 1453 

TEMi«JaCB 8*0, 125 usa 

B1»-TEM1*RXI (I, J) 1455 

B2r-TEM1*RETA ( I , J) 1456 

B1«AB8(B1) 1457 

B2aAB8(B2) 1458 

T1saLFA**2>B1**2 1459 

T2bGAMaa*2*B2**2 1460 

AT1«ABS(T1) 1461 

AT2aAB8(T2) 1462 

IF tTl,GE.0,0.AND.T2,GE,0,0) GO TO 80 1463 

IF (T1,LT,0.0.AND.T2,LT,0,0) GO TO 90 1464 

RJlaSORT (AT1)«CSI*AG 1465 

IF (Tl.GE.O.O) GO TO 10 1466 

TEMPwl»UACC(RJn 1467 

TACC(I>J)r10 1468 

GO TO 20 1469 

10 TEWPM.OACCCRJI ) 1470 

TACC(I,J)*20 1471 

20 RJ2aSORT(AT2)*C8J*AC 1472 

IF (T2,GE,0,0) CO TO 30 1473 

TE«Pw2aUACC(RJ2) 1474 

TACC(I,J)aTACC(I, J)+l 1475 

GO TO 40 1476 

30 TfMPw2aOACC(RJ2) 1477 

TACCtI,J)aTACC(I, J)A2 1478 

«0 IF (lEV) 50»60,70 1479 

50 TEMPPBUACCfSORT (RJ i**24RJ2**2) ) 1460 

GO TO too 1461 

60 TEMPk.*(RJ1*TEmPwi*«J2*TEmPk2)/(RJ1aRJ2) 1482 

60 TO 100 1463 

70 TEMP»*a0ACC(80RT (RJl**2 + RJ2**2n 1464 

60 TO 100 1485 

80 RJa(80RT(ATl )«CSI abort (AT2)*CSJ)*AC 1486 

TEMP6»0ACC(RJ) 1487 

TACC(I»J)a2 1468 

GO TO too 1489 

90 RJ»(80RT(AT1)*C8IA80RT(AT2)*C8J)*AC 1490 

T€MPW»UACC(RJ) 1491 

TACC(I*J)al 1492 

100 R(inaERBOR{TE>*P»-,KACC(I,J),R(ll),I.J.I»>'ER) 1493 

WACCf I. J)«TEMPN 1494 

110 CONTINUE 1495 

C 1496 

C COEFFICIENTS 1497 

C 1498 

T(5)aJ8A6*RETA(I, J) 1499 

T(«)Bj8A6*RXin,JJ 1500 



82 


T f 1 )«,5*4LFi**G 

TfS)*.25*fXXI*XETA+YXl*YETA)**G 

ArcL^fAccci^J) 

*CCL1«1.0-ACCL 

«(12)«‘?(12)+ACCL 

RETURN 

C 

END 


SUHBOUTINE RHS (RfIMAX,jMAX,NPlM,NLN,MpT,4TYP,ITYP,r>EC»ANPEAC.«ETA 
1 ) 


c ******** IKiHOMCGeNFOns TERM FOR COnROINATE ATTRACTIOK *************** 
C * 

c 


dimension R(n, »ETA(NDlM,n, AIN(20), OLN(20), JLNfgO), ART(100)» 
1 OPT(IOO), IPTdOOD, ,JPT(100) 
integer XI,ETA,8LK, atyp 
DATA ZEPO/t .OE-iri/ 

DATA XI,ETA,8LK/6HXI ,bHETA ,6H 

C***** 


C 

c 

r 


c 

c 

c 


IE (NLN+NPT.EQ.O) return 
"RITE (6,200) 

IF fITYP.EQ.O) WRITE (6,260) 

IF (ITYP.NE.O) WRITE (6,270) 

IF (ATYP, EQ, ETA) WRITE (6,260) 
IF (ATYP, EO. XI) WRITE (6,290) 


SET UP amplitude and decay factor 


10 

20 

SO 

RO 


50 

60 

70 

60 


IF (NLN.NE.O) read (5,210) ( JLN (L ) , ALN (L ) , DLN (L ) , L»1 , NlN) 

IF (NPT.ne.O) read (5,220) ( I PT (L ) , JPT (L ) , APT (L ) , DPT (L ) , L«1 , nP T ) 
IF (DEC. LT. ZERO) GO TO 00 
IF (nln,eq,0) go Tn 20 
DO 10 L«1,NLN 
DLN(L)«OEC 

IF (NPT.tO,0) GO TO UO 
DO 30 L«1,NPT 
DPT(L)«DEC 
CONTINUE 

IF (ABS(AMPFAC) ,LT,ZERO) GO TO 60 
IF (NLN.EO.O) GO TO 60 
DO 50 L»1,NLN 

ALN(L)RALN(L)*AMPFaC 
IF (NPT.EQ.O) CO TO 60 
DO 70 L»l,NPT 

APT(L)*APT(L)*AMPFAC 

CONTINUE 

IF (NLN.NE.O) WRITE (6,230) ( JLN(L) , ALN(L) ,0LN(L) ,L*1 ,NLN) 

IF (NPT.NE.O) WRITE (6,2a0) ( IPT (L ) , JPT (L ) , APT (L ) , DPT (L ) » LrI , NPT ) 


CALCULATE Inhomogeneous term 


DO 190 IR1,IMAX 
DO 190 JR1,JMAX 


1501 

1502 

1503 
1509 

1505 

1506 

1507 
1506 

1509 

1510 

1511 

1512 

1513 
1519 

1515 

1516 

1517 

1516 

1519 

1520 

1521 

1522 

1523 
1529 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 
1539 

1535 

1536 

1557 

1538 

1539 

1590 

1591 

1592 

1593 
1599 

1595 

1596 

1597 
1596 
1599 

1550 

1551 

1552 

1553 
1559 

1555 

1556 

1517 

1558 

1559 

1560 
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f**** LI^'f *TT« 4 CTinN 

IF ( ATYP.EO.ETA) IJ»J 
IF (ATYP.EO.XI) U«I 
T 2 » 0 ,0 

IF (NL^,EO.O) GO TO 100 
00 90 L« 1 »NL^ 

T«AUMU*EXP{-DL^‘(U*lAHSriJ-JLNn ))) 

IF (ITYP.^E.O) go to 90 
T»T*I 8 IGM 1 ,IJ-JL''I(L) ) 

IF (IJ.EQ.JLMU) TbO.o 
90 T?*T?.T 

C**** POINT ATTPATTION 

too IF (NPT.EO.O) GO TO IflO 

00 170 L« 1 »NPT 
I 1 «TPT(L ) 

IF ( A TYP, Nf ,ET A ) GO TO litn 

I 1 *J-JPT(U 

GO TO 150 

1«0 11 »I-IPT(L) 

150 ISN»I 8 IG>"n , 11 ) 

IF m.EO.O) ISNbO 
T*(I-IPTa))** 2 A(.T-JPT(U)«A 2 
T*APT(L)*EXP(«DPT fL)* 8 QRT(T) ) 

IF tITYP.NE.O) GO TO 160 
T»T*I 8 N 

IF (I.EO.IPTCL).AND.J.EO.JPT(L)) TmO.O 
160 T 2 BT 2 -T 

170 continue 

180 HETA(I,J)«T 2 

190 continue 

C 

C PRINT INHC^OOENEOUS TEP^^ 

C 

IF flRIT.NE.O) WRITE (6,250) ( ( I , J , RET A ( I , J) , !■ 1 , I H AX ) , J« 1 , JM A X ) 

C**A** 

RETURN 


200 format (aOEXPONENTIAL DECAY RH8*) 

210 format (I10,2F10,0) 

220 format (2I5,2F10,0) 

2J0 format (aOATTRACTION LINES*//6X,*J*, 17X,*AMP*, 15X,*DECAY*/(I5,2F20 
1.81) 

200 FORMAT (•OATTRACTION PO I nT8*//UX , a I* , ux . * J* , 1 7X , * AMP*, I 5X , *0EC A V* , 
1/(215, 2F20, 8) ) 

250 FORMAT (*0RH8*//6(3X,*I*,3X,*J*,6X,*RETA •*) / (6 (219 , 1 E 1 0 , 6 , * •*))) 

260 format (* . attraction •*) 

270 format (* • attraction to convex side, repulsion to concave -•) 

280 format (*0— eta equation RHS •-•*) 

290 format (*0»»> XI EQUATION RHS >•>*) 


end 


SUBROUTINE fOR ( R , X , Y , IM aX , JMAX , 1 TER, IXBR , 1 VER, lENO, NOIM, IwER, NB 
10Y,MACC,RETA,RXI,LR1,LR2,LI1,LI2,LTYPE,NR8E0,IMIR,IAIT,INFAC,INFAC 
20,NB8E6,LIIE6,LB1,LB2,LR8IO,TACC,IEV,IDI8K) 

C 

C ******************** SOR iterative SOLUTION ************************* 


156) 

1562 

1563 
1 56U 

1565 

1566 

1567 
1 568 

1569 

1570 

1571 

1572 

1573 
1576 

1575 

1576 

1577 

1578 

1579 
IS«0 

1581 

1582 

1583 
1586 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 
1596 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 
1603 
1606 

1605 

1606 
1607 
1606 

1609 

1610 
1611 
1812 
1813 
1616 
1815 
1616 

1617 

1618 

1619 

1620 
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C * 

C * l«»22 

C * LORICiL COf*T»('LS I LiCC - VA»IAHI.t ACCELFHaHOn PARAMETER FIELr> 1625 

r * rO^vERGEfl, ( IRRFl EVA^'T IF LCO^pTRUFI 162u 

C * 1625 

r * LCFAC - ADDITTO^ OF I NHOMncEKFOilS TER*' CP*'PLETED 1626 

C * 1627 

c * CO^'STANT ACCELFRATIOM parameter, 1628 

c * 162 R 

C * ACCELFRATI^^^ PiWjvETER TVpe i 1 • SCTh pv TmarInARV f U*jr>EH»RFLA * ) 1630 

C * 2 • BOTh EV REAt (OvER-RELAX) 16J1 

C * 12 - XI EV IMAGINANV, eta EV REAL 1632 

C * 21 • XI EV REAL, eta FV IMAGINARY 1633 

C * 163R 

C 1636 

DIMENSION x(M)iM,n, v(NoiM,n. wm, ixerh), ivEwm, tisi, lpk i63T 

in, LR2(n, Lim), L12(n, LTYPEH), ImERH) 163« 

DIMENSION '•ACCCNDIM, n . RtTA(NDIM,l). RXIfNDIM,!). TACC(N0IM,1) 165*> 

DIMENSION LRlin, LR2m, IRSIOd) 1640 

double precision AG 16«1 

INTEGER ATYP, eta , X I , TACC 1642 

REAL JSAG.JACRS 1641 

LOGICAL LACC, LCFAC, LCDN 1644 

DATA XI,ETA/6HXI ,6HETA ' 1645 

DATA PI/3, 1 415R26535R/ 1646 

1647 

HACK(X,T,I,J,Il,I2,Jl,J2,A,Al,T?,Tn«Al*XfI,J)+A*(T(l)*(X(12,.n+X( 164 8 

iii,.Tn+T(2)*(x(i,j2)+x(i,jin-Tr3T*(x{i?.J2)-x(i2,jn+xm,jn-x(i i64r 
2l,J2))AT(5)*T2YTr4)*Tl) 1650 

HACK2(X,T,I,J,Il,I2,Jl,J2,A,Al,T2,Tl)«AtAX(T,J)*A*(T(n*(X(I2,J)tX 1651 
1 m,J))ATC2)AfX(I,J25+X(Jl,J2)).Tf3I*fXtI?,J2)-X(Jl-l,J2) + X(Jl + l,J 1652 
22)-X(Il , J2n*T(5)*T? + T(4)*Tl ) 1653 

HAC«3(X,T,I , J,I1 ,I2,J1 . J2,A, A1,T2,T1 )«A1*X(I,J)4A*(T(1 )*(X(I2,J)tX 1654 

1 (ll,J))*T(2)*(XfJl ,J2)+X(I,J2))-Tm*(XrJl-l,J2)-X(I2,J2)*X(It ,J2) 1655 

2-X(JUl,J2n*T(5)*T2 + T(4)*Tl ) 1656 

MACK4(X,T,I,J,n ,12,Jt , J2,A,A1,T2,TI)«A1*X(1, J)AA*(7(n*(X(I2,J)+X 1657 

1 (12,11 )) + T(2)*(X(I, J2UX(I, JU )-T(3)*(X(I2,J2)-Xn2,Jn*X(I2,Il»n 1658 

2-XtI2,n-l )UT(53*T24T(4)*T1) 165R 

hAC« 5(X,T,1,J,11,I2. Jl,J2,A,Al,T2,Tn«AUX(I,J)+A*(T(n*(X(I2,Il)6 1660 

lX(I2,Jn+T(2)*(XCl,J2T+XCI,jn)«T(3)*(X(I2,Il-n-X(I2,IlAl)AX(I2.J 1661 
2l)-X(I2, J2n+T(5)*T2 + T(4)*T1) 1662 

UACC(RJ)«2,0/( 1 .Pa8QHT( 1 ,0aRJ**2) ) 1665 

OACC(RJ)»2,0/( 1 ,0+8QRT( 1 ,0»RJ*A2) ) 1664 

1665 

4RITE (6,630) 1666 

1667 

READ coordinate ATTRACTION PARAMETERS AND CALCULATE 1668 

inhomogeneous term 1666 

1670 

KOm 1671 

READ (5,610) ATYP, ITYP,NLN,nPT, DEC, AMPFAC 1672 

IF (ATYP, EG. ETA) CALL »HS ( R , IM AX , JM AX , NDT M , NLN , NPT , AT YP , I T VP , DEC , 1675 

1AMREAC,RETA) 1674 

IF (ATYP, 10, XI) CALL RH8 (R , IM AX , JM AX , NOI M , NLN, NRT , AT YP, I T YP , DEC , A 1675 
1MPFAC,RXI) 1676 

READ (5,610) ATYP, ITYP, NLN, NPT, DEC, AMPFAC 1677 

IF (ATYP, EU, ETA) CALL RH8 ( R, IM AX , JM AX , NOIM, NLN, NPT, ATYP, I T YP , DEC , 1678 

IAMPFAC,RETA) 1679 

IF (ATYP, EO, XI) call RH8 (R, 1 MAX, JMAX , NO I M, NLN, NPT, ATYP, 1 7 YP , DEC , A 1680 



c 

c 

c 


c 

c 

c 


J«PF*C»RXI) 

READ (5,590) IFAC, IBIT,EFAC 

ii^itial setup 


IF(R(1),CT,0,0) go to uo 
IF (lEV) 10,20,50 
10 WRITE (6,6<10) 

GO TO UO 

20 WRITE (fc,650) 

GO TO UO 

30 WRITE (fc,660) 

UO CONTINUE 

IF (I0I8K,E0,2.0R.!0ISK,EQ,3) GO TO 50 
CO TO feO 

50 READ (11,720) L ACC, ICON, CFAC , LCF AC, t«CCl'N , incOuN, C I NF AC , h , IE V , IF AC 
l,eFAC,JPXHl,IMXMl,JMXPl,C8I,C8j.NPT,lNFAc!EINF,IEN0 ^ ^ ^ 

read (11,730) fR(I),I*l,13) 

Jn AX ) 

rewind 11 

KOaK^l 


IF (IEND.NE.S) CD TO 100 
KOKl 

GO TO 80 

60 IF (IFAC.EO.O) IFAC*1 
WRITE (6,600) IFAC,EFAC 
EFAC«AMIN1(R(2),R(5))*EFAC 
IF CIFAC.GT.O) CFAC«1.0/FL0AT(2**(IFAC-1)) 

IF (IFAC.LT.O) CFAC«1 ,0/AR8(FLOAT CIFaC) ) 

WRITE (6,670) CFAC 
IRCOUNst 

IF (IWR.GT.O) WRITE (6,570) 

JMXM1bjmax»1 

IMXM1»IMAX»1 

JMXPIRJHAXAI 

C8JBC08(PI/FLOAT(JMXWI)) 

C8I«C08(PI/FL0AT(IMXM1)) 
nPT«(1MAX-2)*( JMAX«2) 

IF (NRSEC.EO.O) CO TO 75 
DO 70 LB1,NR8E0 
70 NPTbNPT 4LR2(L)-LR1 (L)-l 
Tf IF (INFAC.EB.O) INFACwl 

IF (INFAC.GT.O) C INF AC* 1 , O/FLOa T (2** ( TNFAC*1 ) ) 

IF (INFAC.LT.O) C Inf ACbFLOAT ( INFACO) /ABS (FLOAT ( INFAC ) ) 

WRITE (6,710) CINFAC 

INCOUNbI 

IF (INFAC.LT.O) INCOUNbInFACO 
EINFbEFAC 


SET UP ITERATION 

80 LCONbR(1),6T,0,0 
LCFACb. FALSE. 

IF (lABSdFAO.LE.l) LCFACB.TRUE. 
DO 90 iBl.IHAX 
DO 90 JB1,JMAX 
90 WACC(I,J)Bl.O 
WRITE (6,620) 


1661 

1662 

1663 

168U 

1685 

1666 

1687 

1668 

1689 

1690 

1691 

1692 
1695 
169U 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 
170U 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 
171U 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 
172U 

1725 

1726 

1727 

1728 

1729 

1730 
ITll 

1732 

1733 
173U 

1735 

1736 

1737 

1738 

1739 
17U0 


C 
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r SOB 

c 

100 


110 

120 


c 

c***« 

r. 


130 

lao 


c*«** 


150 

160 


TTEBATION 

IENf)«0 

DP ttSO K»KQ,ITER 

IF (K,LE,2) L/lCCi.TBUE, 

IF fK.^E.S) GO TO 120 
L*CC*. FALSE , 

IF (ICON) LACCb.TBuF, 

TFM*R(1 ) 

DO 110 Isl.I^'AX 
DO no J»1,J^AX 
»iACCCI»J)«TEw 
B(«)»0,0 
H(5)*O,0 
R(11)«0,0 
R(12)«0,0 

FIELD **** 

DO 260 JJ»2,JMX»^1 
J»JMXH1.JJ^2 
JMlBj.l 

JP1«J+1 

DO 260 I1I«2,IMXM1 
I«IMXMl-IIIt2 

IPl«I*l 

IF (I.GT.l) GO TO 130 

IMlBlMXHl 

GO TO 100 
I^^lol-l 

XXI»X(IP1,J)*X{IM1, J) 
YXI»Y(IP1,J)-Y(IM1,J) 

xETA«xn,jpi i-xn.jwn 

YETAbY (I , JPD-Y (I , JMl ) 
ALFA«XETA**2*YETA**2 
C*HA«XXI**2^YXI«*2 
A6 s1,0/(ALFA46AHA) 

JACB8*(XXI*YETA-XETA*YXI)**2*CFAC 

J8AGaJACB8*AG*0.0625 

variable acceleration parameter 

IF CLACC) GO TO 250 
TEHHJACB8*0.125 
B1«-TIM1*RXI (I,J) 

02*»TEm1*RETa(I,J) 

B1«ABS(B1) 

B2iAB8(B2) 

T1bALFAa*2-B1a* 2 
T2«GAMA**2«B2**2 
ATlaAB8(TI ) 

AT2aABS(T2) 

IF (T1 .GE.O.O, AND,T2,GE«0’.0) GO TO 220 
IF (T1 .LT.0,0.ANO,T2,LT,0.O) GO TO 230 
RJli80RT(ATl)*CSI*AG 
IF (T1,OE,0.05 GO TO 150 
TEMPNlwUACCfRJl) 

TACC(I«J)*10 
GO TO 160 
TEMPWltOACCIRJl ) 

TACCn, J}«20 
RJ2 bSQRT(AT2}«C8J«AO 


ITRl 

I7a2 

17U3 

17A« 

17«5 

17«6 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 
1765 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 
1791 

1793 

1794 
1791 

1796 

1797 

1798 

1799 

1800 
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170 

ISO 

190 

200 

210 

220 


230 


2^0 

2S0 


260 

c 

c***« 

c 


c**«* 

*70 


If (T2,GE.0,0) CO TO 170 
TEMPKZBiliCC (RJ2) 

TACCd, J)«T*CCn# JUl 
CO TO 100 
TEMPt»2«0*CC(RJ2) 

T*CC(I,J)«TACC(I,J)*2 
If (lEV) 190,200,210 
TrMPw*UACC(Sr3BT fRJl**2 + RJ 2 ** 2 n 
GO TO 2«0 

TEMPI.* (RJi*TEMPw1*RJ2*TEMP^>2)/(PJitRJ2) 

GO TO 2U0 

TEMPi«»0*CC(80RT (HJl **2*RJ2**2) ) 

CO TO 2«0 

»J*(8QRT UTn*CSlTSCRT(AT?)*CSJ 1 **r. 

TEMPrbOACC tPJ) 

TACCtl, J)>2 
CO TO 2^10 

BJP (SORT (ATI )*CSIT8QHT( AT2)*CSJ1*AG 
TEMPw«UACC(PJ) 

TACC(I,J)*1 

Pm )«EPPOR(TEMPw,rACC CI , J) ,R(l 1 ) ,1, J, IWEP) 

WACCCI, JlPTEMPtx 
CONTINUE 
ITERATE 

T(5)«J8AG*RETA (I , J) 

T(tt)»J8AC*RXI(I,J) 

T(nP.5*ALFA*AG 

T(*)P.5*CAMA*AG 

T(S)»,25*(XXIaxETA*VXI*VETA)*AC 
ACCLBMACCCI, J) 

ACCLlPl.O-ACCL 

R(12)«R(12)+ACCL 

TCMPX«HACK(X,T,I, J,TMt,IPi,jMl,jPi,*cCL»ACCLl,XETA,XXI) 

TEHPV*HACK(V,T,I,J,IM1,IP1,JM1,JP1,ACCL,ACCL1,VETA,VXI) 

B(«)»EPR0R(TEMPX,X(I, J),Rf<n,I,j,TXERl 

R(5)pERR0R(Tempv,Y( 1, j),Rf5),i,j,|Y(rR) 

xn,j)«TEMPx 

Y(I,J)«TEMPy 

IE (I.GT.l) GO TO 260 

XdHAX, JIaTEMPx 

VdMAX, J)bTEMPY 

CONTINUE 

REENTRANT SEGMENTS ***a 

IE (NRSEG.EO.O) go to 000 
DO S90 Lal,NRSEG 
IIRLRKDaI 
I*«IR*(U-1 
ISPLIKLlAl 
ia*Ll*a)-i 
I60T0»LTYPE(L) 

00 TO (*T0»*90,S10,SS0,S50,S70J, ICOTO 
ONE ON SOTTOM, ONE ON TOP 
DO *80 JJPll,I* 

IPI*»JJYI1 

xxi«xd6i,i).xd»i,n 

YXI»Y{Ul,l).Yd,l,i) 

XETA«Xd,*)«Xd,JMXMl) 

YETA»Y(I,*)«Yd,JMXMn 


18U1 

lfi02 

1003 

1800 

iSuS 

1006 

1007 

1000 

1009 

1010 
1811 
1012 
ISIS 
1810 

1015 

1016 

1017 

1018 

1819 
1020 
1821 
1822 
1823 
1020 
1025 
1826 
1827 

1820 

1829 

1830 

1031 

1032 

1033 
1830 

1835 

1836 

1837 

1838 

1839 
1800 
1801 
1802 
1803 
1800 

1805 

1806 

1807 

1808 

1849 

1850 

1851 
185* 
1853 
1850 

1855 

1856 

1857 

1858 

1859 

1860 



88 


CALL Pa« 4 (XXJ,YXl,XETA,yET4,L4CC,CFAC.»fTA,RXI,CSI,C8J,rt4CC 1861 
l,»,T,ACCL,ACCLl,'^niM,T,l,I«FR,TACC,IEV) 1862 

TE>-PX«HACK(X,T,I,l,T-l,Ul,JMXNii,2,ACCL.ArcU»xrT4,Xxn 1863 

TE'^PV«H*CX{X,T,I,l,I-l,! + 1,JMXhJ,?,ACCL,ACCLt.YETA,Yxn 166« 

B(U)»EBP0B(TE^«PX,X(I,1 ),»(<!), I, l,ixrwi 1865 

R(51«EPP0«(TEPPY,Y(I,l),Rf5),I,i,TYEP) 1866 

X(I,1)«TEMPX 1867 

Y(I,n«TE*^PY 1868 

X{I,JMAX)«TE^^PX 1869 

Y( I , JmAX)«TEmPy 1870 

280 CD^'TINUE 1871 

SO TO 390 1872 

C**** BOTH OH BOTTPH 1873 

290 on 300 JJ»I1,I2 1879 

I»I2-JJTI1 1875 

n«IU-CI-in 1876 

xxi«x (i + i , n-x c i-i , n 1877 

YXI«YtItl, 1)-Y(T-1 ,n 1878 

XETAbX(I,2)-X(I1#2) 1879 

YETA«Y(I,2)-Y(II,2) 1880 

CALL PARA CXXI,YXI,XETa,YETA,LACC,CPAC,9ETa.RXI,cSI,CSJ,wACC 1881 
1 ,»,T,ACCL.ACCLI.NDIM, I, 1 , ThFR.TacC, IEV) 1882 

TE9PX«HACK2CX,T,I,l,I-l,Ul,II,2,ACCL.ACCLl,XFTA,XXn 1885 

TEMPY«MACK2tY,T,l, 1 ,I-l,I^l,II,2,ACCLiACCLl ,YETA, YXn 1889 

P(9)*EPR0R(TEPPX,Xri,n,R(9),I,l ,IXER) 1865 

R(5)«EBP0R(TemPY, Y CI» 1 ) . H (5 ) , I , I , t YER 5 1886 

X(I,1)»TEMPX 1887 

Y(I.n«T£HPY 1888 

X(II,n«TEHPX 1889 

Ydl, 1 )«TEHPY 1890 

300 CONTINUE 1891 

GO TO 390 1692 

CA*** BOTH ON TOP 1693 

310 DO 320 JJsIl,12 1699 

1»I2-JJA11 1895 

II»I9-(1-I1) 1896 

XXI9X(Ia1,JM*x)-X(I»1,JMAX) 1897 

YXI«Y(l6l,JMAX)-Y(I-l,JMAX) 1898 

XET4«X(Il,JMXMn«X(I,JMXMn 1899 

VETA»Y(II,JMXM1).Y(I,JMXH1) 1900 

CALL Para (XXI,YX1,XETa,YETA,LACC,CPAC,RETa,RX1,C81,C8J,wACC 1901 
1 ,R,T, ACCLi ACCLl .NOIM, I* JNAX, IPERfTACC, lEVl 1902 

TEmPX»MACK3(X,T,1.IR*X,1.1,Ip1»1I.J*<XM1,aCCL.ACCL1»XETa»XX1 ) 1901 

TEHPY*maCK3(Y,T, I,IMAX,1»1 *I+1»T1,JNXM1 ,*CCL,ACCL1 »VETa, Y xn 1909 
R(9)»ERR0R(TEMPX,X(I, JMAX),R(9),I.JNAX,IXER) 1905 

R{5)*ERR0R(TEMPY, V(I, JHAX),R(5) ,If J-^AXtlYER) 1906 

Xd.JNAXliTCHPX 1907 

Y(I» JMAXIrTEMPY 1908 

xni, JHAXIpTEMPX 1909 

V(II, JMAXlPTENPY 1910 

320 CONTINUE 1911 

CO TO 390 1912 

C**«* ONE ON LEPT, one ON RIGHT 1911 

330 DO 390 JJbI1,I2 1919 

J»I2«JJ*I1 1915 

XXItX(2,J)»X(IHXHl,J) 1916 

yxi*V(2. J)«Y(IHXMi,j) 1917 

XETABX(l,jAn«X(l«J»n 1918 

YETA»Y(1,Ja1)aY(1,J«1) 1919 

CALL PARA (XXI, YXI,XETA, VITA, LACC.CPAC»RETA,R)fI,C8l,C8J,HACC 1920 
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«(5)«ERB0R(TEMPY,Y(1 ,J),R(5),i, j.tVEP) 

X(J,J)»TEMPX 
VC1,J)«TEMPY 
X(IM*X, J)«TEMPx 
Vf IMXX, J)*TE mPY 
3«0 COMINUE 

GO TO 390 

C**** POTw ON left 

550 00 3fc0 JJ«n,I 2 

J*I2-JJ^I 1 

ii«ii»-cj-n ) 

XXl»X(2,J)-X(2,in 
YXI»Y(2, J)-Y(2, ID 
XET*»X C 1 1 J*1 )-X (1 , J-n 
VETA»Y(l,J + n-Yn , J.l) 

1 R T ACCL***CCM 

lf^»T,ACCU#ACCH#N0IH,t^J,IiNER^T4CC#IEV) 

'‘**^'*^CL»ACCL1 ,XETA,XXI) 

Rf«)*ERROR(TE«PX,Xn #J)»Rf«),l,j, rxER) 
R(5)«ERR0RCTEMPY,Y(l,J),R{5),l,J,rYER) 

X(1,J)9TEMPX 
rn*J)9TEMPY 
Xf l,in»TEMPX 
Y(l.in«TEMpY 
360 CONTINUE 

GO TO 3R0 
CAR** BOTH ON RIGHT 

370 DO 380 JJPll,I2 

JPT2-JJ+H 
II»I«»(J»Il ) 

XXlPXdMXMl ,I1)-X(IMXM1,J) 

YXlBYCIMXMl.ID-YdMXMU J) 

XETAlXdMAX, J + n-XdMAX, j-n 
YETAPYdMAX, jAD-YdMAX, J-n 

I B T '^**»*E^*»'^fTA,LACC,CPAC,RETA,RXI,C8I,C8j,NACC 

l#R,T,ACCL#ACCLl#NOIM,IHAX#J»IhE»#TACC#IPV) 

!■!!»** *^*^*^®^**^'^^**'^'^^'^^*^^***"*'*^**»*CCL»ACCL1»XETA»XXI) 
TE ^Y6MACF5(Y,T,INAX,J,II,IMXHi,j»jj4jjjcgL4p^Ll,YETA»YXI) 
R « .ERROR(TEHPX,XdHAX.J),R(fl).IHAX,J,lXER) " 

R(5)6ERR0R(TEMPY,Y(IMAX,J),R(5),ImaX,J,1YER) 

XdMAX,J).TEMPX 
YdMAX,J)«TEMPY 
XdMAX,II)»TEMPX 
YdMAX,Il)«TEMPY 
380 CONTINUE 

390 CONTINUE 

400 CONTINUE 


8TORE INITIAL ITERATION ERROR NORM8 


R(12)»R( 12) /FLOAT (NPT) 
IF (K.CT.n 00 TO 410 
R(6)«R(4) 

R(7)»R(5) 


1421 

1922 

1923 
192a 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 
1971 

1973 

1974 

1975 

1976 

1977 

1978 

1979 
I960 
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C t«PITE ITERATION ERROR NORMS 

^ «10 IF (IMIR.CT.O) WRITE (fciSSO) « , R (« ) , R (51 * R ( i H »R (1 2 ' » L *CC »LCF A C i 
ILCON 

CHECK TO SEE IF ITERATION IS COMPLETE 

**•* CHECK VARIABLE ACCELERATION PARAMETER FIELD CONVERGENCE 
LACC«R(in,LT.RnOI 
IF (ICON) LACC«,TRur, 

IF (LACC) RdnRO.O 

CHECK INTERMEOIATE FIELD CONVERGENCE BEFORE INCREASING 

c»*R* coordinate attraction 
IF (LCFAC) 60 TO aZO 

IF (R(a).0T.EFAC.0R.H(5).GT,EFAC) GO TO flZO 
C**«* INCREASE coordinate ATTRACTION 
R(0)«1 ,0 
LACCp. FALSE. 

IF (LCON) LACCR.TRUE. 

IF (IFAC.GT.OI cfacrz.oacfac 

IF (IFAC.LT.O) CFAC»CFAC*FLOAT(IRCOlJN^n/FLOAT(IRCOUN) 

IRCOUNBlRCOUNtl 

IF (CFAC.GT.l.Ol CFAC»1,0 

LCF ACP ABS ( CF AC-1 ,0).LT, 0,000001 

WRITE (6.6T0) CFAC 

420 CONTINUE „ ^ 

C#*w* CHECK INTERMEDIATE FIELD CONVERGENCE BEFORE MOVING 

C»*** OUTER boundary 

IF (INC0UN,GE,IAB8(INFACn GO TO 4J0 

IF (R(«),LT.EINF,AND,R(5).LT,EINF1 GO TO 490 
■ c«*** CHECK FIELD convergence 

410 IF (R(4).LT.R(2),AND,R(5).LT,R(1)) GO TO 490 
C**«* PRINT variable acceleration PARAMETER FIELD AT START OF ITERATION 
IF (lAIT.EO.O) 00 TO 450 
IF (K.NE.IJ GO TO 450 
WRITE (6|(iS0) 

DO 440 JPl.JMAX 
WRITE (6f690) J 

WRITE (6,700) (TACC(I»J1»mACC(I,J),T»1iIMAx) 

440 CONTINUE 

450 CONTINUE 
C 

c ITERATION DOES NOT CONVERGE 

C**«* WRITE partially CONVERGED SOLUTION TO DISK tfa 

455 WRITE (11,720) LACC,LCON,CFAC»LCFAC,IRCOUn,INCOUN,CINFAC,K,IEV, IFA 
lC.EFAC,JMXMl,IMXMl,JMXPl,CSI,C8J,NPT,INFAC.EINF,IEND 

WRITE (11,710) (R(I),I»1,13) ^ 

WRITE (11,710) ((X(I,J),Y(1,J),RXI(I,J),RETA(I,J),wACC(1,J3,IR1»IM 

UX),JWl,JMAX) 

CF*** PRINT variable acceleration PARAMETER FIELD 
IF (lAIT.EO.O) GO TO 470 
WRITE (6.6B0) 

DO 460 J61.JMAX 
WRITE (6,690) J 

WRITE (6,700) (7ACC(I,J),WACC(I»J),IP1,1MAX) 

460 CONTINUE 
4T0 CONTINUE 

IF (R(6),0T,R(4),AN0,R(7),GT,R(5)) GO TO 480 
IENDrI 


1981 

1982 
1981 

1984 

1985 

1986 
1967 
1986 

1989 

1990 

1991 

1992 
1995 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 
2001 

2004 

2005 

2006 
2007 
2006 

2009 

2010 
2011 
2012 
8011 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 
2021 

2024 

2025 

2026 
2027 
2026 
202R 

2030 

2031 

2032 
2031 

2034 

2035 

2036 

2037 
203S 

2039 

2040 
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ilflO 


RETURN 

IEnD«2 

HETUMM 


ITER4TI0K* CONVERGES 


a90 IFNpai 

C**«* MOVE OUTER BOUNDARY 
0INEAC»CINEAC 

IE (INCnUN.GE.IABSdNEACn GO To 550 
IE (INEAC.GT.O) C I NE ACa2 , 0*C INE AC 

IE tINEAC.LT.O) C I NE AC»C INF AC*EL0AT ( INCOUN*! ) /ELOA T ( INCOUN) 
OINEAC«CINEAC/OINEAC ^ ^ » j 

•“RITE (6,710) CINEaC 
INCOUN»lNCOUNA 1 
DO 5<t0 LRLISEG, NbSEG 
I1«LB1 (L) 

I2«LB2(U 

IGOTOrLBSID(L) 

GO TO (500,520,500,520), IGDTn 
500 IE (IGOTO.EO.l) J«1 

IE (IGOTO.EQ.S) J»JMAX 
DO 510 I»II ,12 

X(I,J)»X(I,J)aDINEAC 

510 v(i, j)by(i, j)*niNEAC 

CO TO 5«0 

520 IE (IGOTO,EQ,2) I«1 

IE (IGOTO.EO.a) I«IMAX 
DO 550 Jlin,I2 

X(I,J)*X(I,J)*DINEAC 
550 Y(I,J)»V(I,J)*D1NEAC 

5«0 continue 

IE(LCEAC) IEAC«1 
KOal 

IE(K,EO,ITER) GO TO «55 
GO TO SO 


C***A FINAL convergence 
550 CONTINUE 
ITERaK 

C*A** PRINT variable acceleration PARAMETER EIELO 
IE (IA1T,EO,0) return 
NRITE (6, 680} 

DO 560 Jal,jMAX 


•“RITE (6,690) 
WRITE (6,700) 
560 CONTINUE 
RETURN 


J 

(TACC(I,J),WACC(I,J),lal,TMAX) 


570 format (*1*,15X, aITERATION ERROR NORMS*//) 

580 FORMAT (I8,5E15,5,F20.5,5L10) 

590 FORMAT (2I5,2F10,0, 15) 

600 format (*0*,I5,* steps IN ADDITION OF INHOMOGENEOUS TERM, INTERM 
lEDIATE CONVERGENCE FACTOR ■*,Fi5.8) * 

610 FORMAT ( A6, U, 215 , 2F 1 0 , 0 ) 

of iterate CMANOE8*.«OX. .logical con 
2CCaPARAa*«6X,*t,ACC*«5Xf*i,CFAC*#6X#*LC0N*) 

OONTROLS I LACC - VARIABLE ACCELERATION*,* PARAM 
OONVERGED (IRRELEVANT IF LCONaTRUE)*//20X,*LCFAC • AODI 
2T10N OF INHOMOGENEOUS TERM COMRleTEO*//20X, *LCON • UNIFORM ACCELER 


2 oai 

2oa2 

2oas 

204<t 

20U5 

2046 

2047 

2048 

2049 

2050 

2051 

2052 
2055 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 
2065 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 
2075 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
20S2 
2085 
20S4 

2085 

2086 
2087 
2086 
20S9 

2090 

2091 

2092 
2095 

2094 

2095 

2096 

2097 
209S 

2099 

2100 
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650 


lATlON PAKAf*»ETrR*//2<'^ 5 


(♦OCOMPLEX eigenvalue PWOCEO'^KP i UNHEW-PELAX*^ 

(♦OCOmPLEX eigenvalue PRnCEDUWp % WEIGHTED AVERAGE*) 

(#OCn^PLEx eigenvalue PRPCEr>URE % nvER«WELAX*) 

fA 0 #,n 5 ,«^* nr inhomogeneous ter^*) 

C*OACCELERATIOM P AP AMgTERS^// 3 
(*0J 

e ionx,*( #r 7 , a# IX) ) 

71U (*0*fri5 «S»* OF OUTEP BOUNDaPV*) 

720 rORHAT(2U10fE16,P#L1 0#2I5#Et6tS/3r5#Ei 6,8,315#2El^,R/?l5#El6,6fI5) 
730 rOPMAt (SE16,S) 


FOPHAT 
format 
660 format 

670 FORMAT 

format 

FORMAT 

format 
format 


660 

6P0 

TOO 

710 


END 


SUBROUTINE PLOT(X,V,I) 
CALL CALPLT(X,Y,I) 
RETURN 

end 


SUBROUTINE SYMBOL (X, Y,H, TEXT, angle #NCHAP) 
CALL NOTATF(X, Y,H, TEXT, ancle #NCHAR) 

return 

end 


21C ! 
2102 
2103 
210« 

2105 

2106 
2107 
210P 
21 OR 
2110 
2111 
21 12 
21 n 

21 IR 

2115 
2U6 
2117 

2116 
211R 
2120 
2121 
2122 
2123 
212a 

2125 

2126 
2127 
2126 

2129 

2130 

2131 

2132 

2133 
213a 

2135 

2136 

2137 
2136 
2159 
2 iao 

2iai 

2U2 

2ia3 

2 iaa 

2U5 
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Sample Cases 
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Sample Case Output: Simply -Connected Region 


**•***«*«***««*«« INPUI **«**•«««*****«****««•*«*«**** 

IMAX, Jma;< ,NbOY, ITfeH, lGfc5» lOISKf iNlNTLi iN, IGtO I 21 0 100 0 


0 0 0 


IPLOT, I PL T»,nC UP Y,LiN-M # L I n(« T2 # NUwiJK , NUMBR 1 ,IS^lPl#I^>KIP^ I 


3 


0 0 0 0 


1 


NSS&Gr^tHStG I 4 0 

«( 1) »H (2) ,p(3) » VlNUN^AlNf IN, XOInF , YUINF ,NINF I 

U<50000000 ,00010000 ,00010000 0,00000000 0,00000000 0,00000000 0,00000000 0 

Uv,iAir«p(iO} 1 0 0 0,00000000 

ImFACjInFaCO I 0 0 

S12trPAri0,01ST,XBl,X62,YBl,yB2 B,OUOOOOOO 0,00000000 10,00000000 0,00000000 O.OUOOOUOO 0,00000000 0,00000000 


SIMPLV^CONNfcCTEO HtGlON 
INITIAL GjfcSS TYPEt 0 
--BODY StGHENTS-- 

L LBSIU LBI LP2 LtiOY 


1 

1 

1 

21 

-1 




2 

4 

1 

21 

-I 




5 

i 

21 

1 

-1 




4 

2 

21 

1 

•1 




'OUTER 

BOUNDARY-- 






RADIUS 

a 

0,00000000 

initial angle » 

0.00000000 



ORIGIN 

AT 

X a 0. 

00000000 

1 Y a 0,00000000 




number 

OF 

POINTS 

a 0 

1 STEPS IN 

AT TAINMEnT of INFINITY 

Initial step clineak case) « 

I 


UNlPOPf^ AtCELER*nUN PAWAMMf^^ ustu. 


TEST CASE • BOOY«FlTTfcD CUU^DlNATE SYSTEM 
simply-connected PEGION 

bOOY-FlTTtO COOPDiNATt SYSTEM 

THAnSFOPMED body, key seat ShAFT 

FIElO PAKAMETEP3, number UF Xl-LINES ■ 21 

NUMBtH OF ETa-LXNES • 21 


ITERATION PAkAMETERSl SUM ACCELEHAIION PARAMETER ■ 1,60000 

MAXIMUM number of iterations ALLOWED ■ tOO 
ALLOMABLE iteration ERROR NORMSl X| ,lOOoOE*03 

Y| ,IOOOOE»03 


number UF bODItS IN FIELD I 1 
PLOT PARAMETERS! COPIES DESIRED • 1 

linemeicmt desired ■ 0. 

PLOT SUE IN y-DIHECTION « B,000 
RATIO « 0,000 

logical controls I LACC - YARIaSlE acceleration parameter field converged (IRRELEViNT IF LCON«TRUEJ 
LCFAC - audition UF iNhOMOGENtOgS TERM CUmPLETED 
LCOn • UNIFORM acceleration PARAMETER 



Sample Cases 
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Sample Case Input: Simply -Connected Region 


TEST CASE • BUDT-FITTEO CUOHOINATE SYSTEM 
SlMPLY«CONNtCTED REGION 
KEY SEAT SHAFT 

21 21 0 100 0 I I 0 0 

I i 1 0 0 0 0 I I 

4 0 

1 I 21 -I 

a I 21 -I 

3 21 1-1 


2 

1,8 

21 1 -1 
0,0001 0,0001 

o 

• 

o 

o 

• 

o 

0,0 

0,0 

0 

0 

0,0 

0 0,0 
0 

0,0 10,0 

o 

m 

O 

0,0 

o 

m 

O 

0,0 

-,125 

,99215 






-,37461 ,92716 

-,62932 ,77715 

-,02904 ,55919 

-,9563 ,29237 

— 1 • 

-,9563 -,29237 


-,02904 

-,55919 

-,62932 

-,777 15 

-,37461 

-,92716 

- 1 . 

,37461 

-,92710 

,62932 

-,77715 

,02904 

-,55919 

,9563 

It 

,9563 

-,29237 

,29237 

,02904 

,55919 

,62932 

,77715 

,37461 

,92710 

,125 

,99215 

.125 

,966 

,125 

,970 

.125 

.97 

.125 

,962 

.125 

,954 

.125 

,946 

.125 

,936 

,125 

.932 

.125 

,926 

.125 

.92 

.125 

,914 

.125 

,905 

.125 

,903 

.125 

,096 
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.125 

.693 

.125 

,868 

.125 

,660 

.125 

,68 

.125 

,877 

.125 

,875 

.12 

,875 

.115 

.875 

.11 

,875 

.1 

.875 

.09 

,875 

,oa 

,675 

.09 

,875 

.00 

,875 

.02 

,875 

,875 

.02 

,875 

,00 

.875 

,06 

.875 

,06 

.875 

.09 

.875 


.675 

.11 

.875 

.115 

.875 

.12 

.875 

.125 

.875 

.125 

,877 

.125 

,68 

.125 

, 88 a 

,125 

,888 

.125 

,891 

.125 

,890 

.125 

,903 

,125 

,908 

.125 

.910 

.125 

.92 

.125 

.928 

.125 

.932 

.125 

,938 

.125 

,908 

.125 

,950 

,125 

,962 

.125 

.97 

,125 

,978 

.125 

.966 

ETA 

0 1 
1 10.0 


U 0 


0 100,0 


XI 


I 


0 0,0 

0,001 
0 0.0 


0,0 

0,0 
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Sample Case Output: Simply -Connected Region 


««*•**«*****«***« INPOI *»***•*********•*****••«****** 

IMAH, jMAX,NbJY #I FEH, lUtb# lOlS^i IHINTL# IGtO % dl H 0 100 

IPLOT , XPl T R » mCUPV »L I WU I T<J , NOwtJH , numbK W I 5K IP I , ISK 113 1 


0 1 
0 0 


1 0 0 
0 0 1 


NBSeGfNHStG I 4 0 

HCl)»P(iJ»R(3)#^I^^lN,AINF:N,*0lNF,yUlNF,NlNF I 

l.BOOOOOOO ,00010000 ,00010000 0,00000000 0,00000000 0,00000000 0,00000000 0 

IEV,IAIT,R(10) I 0 U 0,00000000 

1VF*C»1NF*C0 I 0 0 

5IZfcrHAU0#0iST, X0l , X6i,tsi , YB2 8,00000000 0,00000000 10,00000000 0,00000000 0,00000000 0,00000000 0,00000000 


SINPLY^CONNtCTEO region 
INITIAL GufcSS TYPEl 0 
•-BODY StGMENTS-- 


L LBSIU 

LBl 

LB2 

Lbo Y 


1 

1 

1 

21 

-1 


2 

4 

1 

21 

-1 


5 

3 

dl 

1 

-1 


a 

d 

21 

1 

• 1 


--outer 

BUUNOARV-- 




RADIUS 

s 

0,00000000 

initial angle ■ 

0,00000000 


OHXGIN AT X B 0,0000000 >1 , Y n 0,00000000 

(VURBtH OF POINTS « 0 I STEPS IN AlTAINNfcNT OF INFINITY 


uniform ACOEUEHaTIUN PAtYA^MFk^ USEU, 


Initial step ilineak case) « i 


TEST CASE • bUOY»FITTED COORDINATE SYSTEM 

SIMPLY. connected region 

BODY. fitted coordinate system 

transformed body, key SEAT ShAFT 

FIELD PARAMETERS, NUMBER OF XI-LINES » dl 

NUMBER OF ETA.LINES b i\ 


ITERATION PARAMETERSi SUM ACCELERATION PARAMETER ■ 1,60000 

MAXIMUM number of iterations allowed ■ lOO 
ALLOWABLE iteration ERROR NOHMSi X| .IOOqOE.OS 

Y| ,10000E*03 


number UF BODIES IN FIELD t I 
PLOT PARAMETERS! COPIES DESIRED • I 

linemeigmt desired ■ 0. 

plot size in Y.DIRECTION a a, 000 
RATIO a 0,000 

logical controls I LACC - variable acceleration parameter field converged CIRRELEVaNT if LCONmTRUE) 
LCFAC - audition UF inhomogeneous term completed 
lCON • uniform acceleration parameter 
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EKPONtNTIAt UtCAt HhS 
• ATTKACTION ■ 

ETA equation RH3 

ATTKACTION LINES 

J A«K DECAY 

1 lU.OUOOOOOO ,00100000 

I STEPS IN addition UE InhomoOEnEOUS TE«M, InTEHhEOIATE CONwEH&ENCE fACTOK • 100,00000000 

1 ,00000000 OF iNHUrfOCiENEOUS TEKm 
1,00000000 OF OUTEK BOuNOAHY 



ITERATE changes 



logical 

CONTROLS 


ITEKATE 

X-NOHH 

V-NORH 

ACt-NORH 

AVG,ACC,PAHA. 

LACC 

LCFAC 

LCON 

1 

,77l67t-0l 

.1073OE4OO 

0, 

1,00000 

T 

T 

7 

1 

,75S93E-01 

,17935E400 

0, 

1,00000 

T 

T 

T 

i 

,22^a6E>00 

,52470E^0O 

0, 

1 ,aoooo 

T 

T 

T 

K 

, 19242E«00 

,42021E400 

0, 

1 ,aoooo 

T 

T 

T 

5 

, 1 3070E^OO 

,3a712E+00 

0, 

1 ,60000 

T 

T 

T 

6 

, 10933EE00 

.27774E400 

0, 

1 ,aoooo 

T 

T 

T 

7 

,ai462E«01 

,23974E+00 

0, 

1 ,60000 

T 

1 

T 

B 

,75859E«0l 

, 14ea5E^OO 

0, 

1 ,80000 

T 

T 

T 

9 

,47432E-01 

, 14056EF0U 

0i 

1 ,80000 

T 

T 

T 

10 

,47S90E-01 

•96425E-01 

0, 

1 ,80000 

T 

T 

7 

1 1 

,410a9E-0l 

,66676E*0 1 

0, 

1 .aoooo 

T 

T 

7 

\l 

,29926E-01 

•SSSRIE-Ol 

0. 

1 .aoooo 

T 

T 

7 

13 

,27004£-Ol 

,S7719E-01 

0, 

1,60000 

T 

T 

7 

14 

,17656E-01 

.61240E-01 

0, 

1 , aoooo 

T 

T 

7 


, 19630E-U1 

,45244E-01 

0 , 

1,60000 

T 

T 

7 

16 

, 19044E-01 

,29517E»01 

0 , 

1,60000 

T 

T 

7 

1 7 

, 17046E-01 

,32743E-01 

0 , 

1,60000 

T 

T 

7 

le 

, 14024E-01 

•4Q620E«01 

0 . 

1,80000 

T 

T 

7 

19 

,69459E-02 

,33153E-01 

0 , 

1,60000 

T 

T 

7 


,99046E*02 

,26755E»01 

0 , 

1,60000 

T 

T 

T 

^1 

, 10402E*01 

,22490E*01 

0, 

1,60000 

T 

T 

7 


, 1 1 177E-01 

.20U57E-01 

0 , 

1 ,60000 

T 

T' 

7 

23 

,90 140E-02 

,16369t*01 

0 , 

1,60000 

T 

T 

7 

24 

•71066E-U2 

,12976E-01 

0 , 

1,80000 

T 

T 

T 

2^ 

•56664E-U2 

.10755E-01 

0 , 

1 ,60000 

T 

T 

7 

2b 

,41651E-02 

•d0656E-02 

0, 

1,00000 

T 

T 

7 

27 

,33512E-02 

,64359E*02 

0 . 

1,60000 

T 

T 

7 

26 

,26S13t-02 

.44527E-02 

0 . 

1,60000 

T 

T 

7 

29 

.21974E-02 

,326b7E-02 

0 , 

1 ,60000 

T 

T 

7 

30 

, 19004f02 

.2SS65E-02 

0. 

1,60000 

T 

T 

7 

51 

, l406db«02 

, 1 7945E-02 

0, 

1,60000 

T 

T 

7 

32 

, 10214E-02 

. 1 03b2E«02 

0, 

1,60000 

T 

T 

7 

33 

,7b6a2E-03 

,69375t-03 

0, 

1,60000 

T 

T 

7 

34 

,62992E-03 

,a36l9E-03 

0, 

1,60000 

f 

T 

7 

3*> 

,49023E-03 

,53767t-03 

0, 

1,60000 

T 

T 

7 

56 

,47^>94E-03 

,42585E*03 

0, 

1,60000 

T 

T 

T 

37 

,285aiE-03 

,36137E*03 

0, 

1,60000 

T 

T 

7 

36 

,56017E-O3 

,39204t-03 

0. 

1,60000 

T 

T 

7 

39 

, 526b6t-03 

,30726E-0i 

0, 

1,60000 

T 

T 

7 

40 

,27069t-03 

,3l30bE-03 

0, 

1,80000 

T 

T 

7 

41 

, ia4i4E-03 

.2660TE-O3 

0, 

1,60000 

T 

T 

7 

42 

. l404aE-05 

,2«92bE-03 

0. 

1 ,60000 

T 

T 

7 

43 

•9660aE-O4 

, 19891E-03 

0 . 

1,60000 

T 

T 

7 

44 

, 1 1059E-03 

, 14287E-03 

0 . 

1,60000 

T 

T 

7 

45 

, 154I4E-03 

, 14b53E-03 

0 , 

1,60000 

1 

T 

7 

4b 

,55074E-04 

,783b0t*04 

0 , 

1,60000 

T 

T 

7 
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Ttsr CASE • ttOUy«^I1TEO COUROINATE SYSTEM 
SlMPtY-CO^»NeC TED RC610N 


FINAL VALUES 

iteration converges, 

INITIAL ITERATION ERHOK NUKMSi Al ,77l67E»0l Y| .IS7JOEYOO Aj ITERATE • I 
final iteration ERROR NURMSi X| ,$5074E«0R Y| ,7S3A0E*0A Aj ITERATE i AS 

LOCATION UF hAKlRUM iteration EH«0R| X| I« 5»J» A 

Y| I« 17 J» 5 


J« 1 

• • UbOOE*0 0«,37A61EfOO< 

0, .37R6U^OO 

, 12500E«00 
J* 2 

• , 12SOOEYOO»,£« M5t>00- 
•,R1931E»05 ,3l2d0E>OO 

, UbOOE + 00 
J« 3 

• , l2*>0 0E + 0 0.,2Al93E4yO« 

• ,11970E-UA ,2Sa^»8E^OO 
a 12 ^QOEyOO 

J» 4 

«aI^^OOEtOO«.2l621EYOU' 
*al642ftE«U4 a20b69E«0U 

a USOOEtOO 

J» 5 

•a l2500EtOO-a I9937EtOO( 
-atoU95aE-05 ,l5325£tOO 
.12500EY00 
J« 6 

• a U50 0E4 0 0-, 18 70/EtOU' 
-alT932E-0b aUl65Et00 

• UbOOEYOO 
J» 7 

•,l2bOOE+00*al7743EYOO' 
,»232iE-Ub a«^‘>RRt-01 
, 12bOOEFUO 
J« b 

• a l2S00E + 00*al«»95bEY00 
,2d24et»05 .69065E-01 
a I2bu uE Y 00 

J« 9 

-,l2!j0 0£Y00-,Ui0 0f+0& 
,b9007E-05 ,57(>97£-01 
, 12500E + 00 
J« 1 0 

I2b00tt00*a IbTioE+OO 
,6bS94E*05 aA9il4E«0l 
a 12b00E^00 
Ja 1 1 

•a 12b00£t0 0., I 396 + 00 

ayTO^ttE-OS ,4<>bfe7t-0I 

a l2b00£ + 00 

Ja U 

libOOE+OO-a 14795E+00 
aTAOOTt-O*) a 37757e»0l 
a 12300E + 00 


*«***»**A«i* X« ARRAY «**•*******• + **•«•*«*«**• «««*tt««ftAft«**aa*ftanaaaa*Aafi 

ab2932£+0O«a92904£+O0-,9SS30E+O0*al0000E+Ol«,9Sb30Et0O«aa29OAE9O0*aA2932E900«.37ASUA00 
,62932E+00 aS2904£Y00 ,9b630t+00 alOOOOE+01 .9b630E+00 ,6S90AE400 •A2932E900 tSTASIEtOO 


a46^blE+OU«abi66b£+0O»a766S!>E+00«aS3393EYOO-a622d4EA0O«,72$A9E90O*a9bl3lEt00-.31269E«00 
abbl30E+00 a72S47E+00 .B22S1E+00 «63b90E+00 .7b852EtOO ,63b6lE+00 »Ab$5lE900 •2S71AE900 


a3bl l7£+00-aA9A^7t+00-a^9336E+uO»abb3b7EtOO-,b730SE+00«,b07A7efOO*a4bS92E^OO««25eSOEbOO 
,4bbb9£ + 00 «b07U2E + 00 ,b7297E + 00 abb3bb£ + 00 ,5933lt + 00 .aSASlE + OO alblUEtOO |2A|9 UaOO 


a2990bE+00-,3bI20E+00»a4b3b9£400*,SOtt38EtOO*a32lSOL+00»aA7a7bE+00«cS7191EtOO*«20372IbQO 
,371d6£+U0 .47eb7E+00 •32138E+U0 ,b0e2S£+00 ,455b2E+00 aSSUSEbOO «2990)Eb00 •ElSlSEbOO 


a2b073£+oa»,3lb92£+00»,3b207E+00«a39l70E+00«,39443E+00«,sS9l|EbOO««2761bEbOO». lS32SCt00 
.27612E+0U ,35903E+00 a39433E+00 .39162£b00 ,3b201t+0O a3lS^2Eb00 a2S07lEb00 «l9933Eb00 


,234^7t+00»,2732ti£+00-,50lSbE+00«a31A72£+00-a30b7t£+00«.27l55EbOO«»2g57AEbOOa,|UbAE«00 
•20571E+00 a27l51£+00 ,30bb6£+U0 ,31A71E+00 ,301b4£b00 a2732bE+00 »23A5bEb00 ilSTOiEbOO 


a2lb0^e+UU»,24290E+00-,2b022E+UO*a2b391E+00«a2SOl9£+OOaa2lS90EbOO«alb005EbOO»|S55AgE*OI 
,160046+00 .215096+00 .25016E+UQ .2b390E+00 .2b022E+00 •2A2S«Cb00 •21Sg2EbOO .i77AlEbgO 


a 199596+0 0»,21966E + 0 0«,22972£ + 0 0»,2277S£ + 00«,21 137t + 00*, 17S9SE + 00* •U056Eb00«*b9Q5lE*01 
.li05B£+00 ,17d9b£+00 a21137£+00 •22775E+00 a22972E+00 .2l9b7Eb00 al9956EbOO .1695iEbOg 


a lb6a9£+oO*,20llOEbOO«a2059eE+00«a2003AE+00«al827b£+OOp, t52A3£bO0*«10992Eb00»,57seiE»0I 
.10993E+00 ,l524i£+00 .16275E+0Q •20034E+00 a20597£+00 ,291096+00 ,164076+00 ,142966+00 


, 1 76 16E + 0 0*, ia57b£ + 0 0-a iab60b + 0 0«, l7dT0E + 00«a lb06it + 00», t3233E + 00*,9A52SE»OlPtA9J01EpOl 
,945356-01 ,132336+00 ,16065E+00 ,178716+00 ,186826+00 ,i857aE+00 ,176156+00 ,157326+00 


, 1669 16 + 00- a 17279E + 0U-, 1 7 092E + 0 0-, 161 1 16 + 00-, 14298E + 00-, I 1 6536 + 00- , 625756*0 1 •« A^852E«0 1 
.025636-01 ,116566+00 .luiOOE+OO ,161146+00 ,170946+00 ,i7279E+00 ,1469U+00 ,152366+00 


. 158806 + 0 0- a 16 16AE + 0 0-, 1 5 75 AE + 0 0- , 1 A656E + 0 0* , 1 26606 + 00* , 1 0 36 AE + 00- , 73 045E«0 1 • , 3 77566*6 1 
.73082E-01 ,103866+00 ,128636+00 .146596+00 ,157576+00 ,t6|676+00 •1566U+66 ,147941+66 
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1 3 

• , ; 2b00t400», lM394<ttOO», 15 JbOttOO*, I5l9itt00», l«6ut^00», I5«5fctt00*, 1 J675t^«0»,f3<l93e*0 J»,951f 

^3512^*05 ,3i667b«01 ,65396b«01 ,935}2t«01 ,\\b7tl*00 ^XiMbQlbOQ |19919L400 ,ifl9|f«00 .iSUai^OO 
, I2500t^00 
JB 14 

•,l^b00t♦00•,lao^9h♦00-,14bl4t♦00-,l434lt♦00-,l3629t♦00-,l2«08t♦00•, I O6eet^OO»,05O I9t-01-,59142e»0 l«,30351E»0l 
,utt9H4t-05 ,30349t«0l ,59l5TE»Ul ,«50i9t«Ul ,l0692t400 ,l2412t400 ,l3634t400 ,i4397t^00 ,14518E^00 ,19030E400 
, I2500b400 
J» 15 

-,l2500tt00-,l3fa92t^0 0-, 13931 1>00*, 1359 I EfOU-, 1 27tt3tfOO-, I lb39tt00*,9fl727t-0 1- ,78O7lt»Ol-,54O70fe«O l«,27692E»0l 
,65iabE»05 ,27b74t-01 ,54093t-ul ,76100E-01 ,907b3E-Ol ,ll5««Et00 ,12769tt00 ,i359bE^00 ,13935E^00 •l3b99EtOO 
,l2bOOttOO 
JB lb 

-,l2500fct00-, 1337 13402 E toy-, l2930E>00-,120beE400», I 06 1 2E4 0 0- , 92 024 1 »0 1 • , 7245 3E-0 1 ■ , 49982E-0 I • , 2550 7 1»0 I 
,7l054fc*05 ,2SblttE-01 ,5000bt-0l . 72473E-01 ,920b4E»01 ,10817t400 , 1 2 063E + 0 0 1 293bE#00 ,l3406t400 , 133006900 

, l2b00E900 
JB 17 

UbOOEtOO-, I30b2t900-, 12923E900-, 12353E+00-, 1 1442E400*, l02l3t900»,e6bbbt-01-,fe79ebE*Ol»,4b745E*Ql«,23795E*Ol 
,62447E-0b ,238obt»Ol ,4b7bJb»0l ,b8010t»01 ,abb97E«01 ,102176400 ,114476400 ,i2358E400 ,129266400 ,130046400 
, I2b00fc400 
jB 16 

I2b00t400«, 126O4Et00-.12490E4U0«, 1 1659E«00«, lu932b4OO«,97349E«Ol*,6250OE«Ol«,b9597t*Ol*,44246£«Ol>,22461E»Ol 
,47679E-05 ,224bbE*Jl ,442b9f..01 ,b4bl4E»ni ,82bObE-01 ,97379E«0l ,109366400 ,jl062E4OO ,124926400 ,120056400 

, 12bO0E400 

JB 19 

-, 12500E + 00-, 1253 76 too*, 121036 400*, I 14526 4 0 0-, I 05266 4 00»,93749E»0 1 -,798b26»0 I •,62i096»01-, 423066-0 I •,21435t»0J 
,ll030t-0b ,2l4ib6-0l ,423936-01 ,b22l9E-0l ,79864£-0l ,937606-01 ,105266400 ,114546400 ,121046400 ,125306400 

,125006400 

jB 20 

1250 06 4 0 0-, 122 766 4 0 0-, 1 17686 4 0 0-, I I 1 536 40 0- , I 022 1 6 4 0 0- , 9 1 3306 -0 1 • , 7073 3E -0 1 • , b07556-0 1 - , 4 1 0366 -0 1 - , 2065 16-0 1 
-,U656E-0b ,206466-01 ,4i04l6-0l ,607b0E-Ol ,787346-01 ,913366-01 .102226400 ,ill546400 ,117686400 ,122766400 

,125006400 
jB 21 

-, 125006 400-, 1 20006400-, 1 15006400-, 1 10006400-, 100006400-, 900006-0 1 000006-01 -,600006-0 1-,400006-01«,20000E»0 1 
0. ,200006-01 .400006-01 ,600006-01 ,800006-01 .900006-01 ,100006400 ,110006400 ,115006400 ,120006400 

, 125006400 

******«****«*«**************H**** y-AHRAY ***-*******-«**H**--A*-A**#A»4***AA4«4**H44B*4B4*»#* 

jB 1 


,992156400 

,927186400 

,777156400 

,559196400 

.2923764000 

• • 

.292376400- 

•S59196400-,777156400- 

,927106400 

-.100006401- 
,992156400 
JB 2 

,986006400 

,927186400- 

,777156400- 

.559196400- 

,2923764000 

• 

,292376400 

,559196400 ,777156400 

,927106400 

,937066400 

,82b39t+00 

,650706400 

,418566400 

,149216400- 

•130256400- 

•390 426 400- • 604920400* 

,753046400 

-.814006400- 
,966006400 
JB 3 

,978006400 

,753046400- 

,604906400- 

,390396400- 

, 130226400 

,149256400 

,410616400 

•650746400 ,026426400 

,937076400 

,958976+00 

,857676400 

,725156400 

,539596400 

,309746400 

,563646-01- 

• 1905764 00- ,399406 400- 

.542956400 

-.596756400- 

.978006400 

,542946400- 

,39934EfOO- 

,190486400 

,565116-01 

,309096400 

,539706400 

,725246400 ,057706400 

,930966400 

J ■ 4 

,970006400 

,936386400 

,873676400 

,775396400 

,636006400 

,456056400 

,252016400 

,301496-01-, 152040400* 

,265706400 

-.334526400- 

,970006400 

,285656400- 

,151936400 

,363346-01 

,252266400 

,459076400 

,630966400 

•775476400 ,073706400 

,936406400 

J * 5 

,962006400 

,931886400 

,680356400 

,804696400 

,702156400 

,572606400 

,421006400 

•200606400 ,113276400 

•719936*02 

-,317766-01 

,962006400 

,728596-02 

, M344E400 

, 260846400 

,421346400 

,572036400 

,702316400 

,604736400 ,600396400 

,931906400 

jB (> 

,954006400 

,926626400 

,802446*00 

.021136400 

•742066400 

•049«2CtOO 


•«27«36409 •327366490 

•256301900 

,230456400 

,954006400 

,256416400 

.327506400 

.427646400 

.530746400 

,644$9e900 

,742161400 

•821206400 •882466900 

• 9244U9M 
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J» 7 

•9M*OUEtOO •9210tttt00 
, 39920^400 ,4l636Et00 
«9a600^t00 
Ji 0 

,930oot^oo .viSaat^no 
,bu‘5^9t♦oo ,5l/u;ttou 
,93600tt00 
J» 9 

,9j^00t+00 ,9^00^t♦OU 
,b77T7E+00 ,56b67t^JU 
,93^00fct00 
Js 10 

,92bOOEfOO ,9oa85t+0U 
,6iio7t+oo .biaiu^oo 
•92b00e«00 
J» ll 

,920UOfc*00 ,b9992t+00 
,t>72a5t + 00 *67 ^99tt00 
,92000b too 
J» 12 

,9l400t+00 ,d9^25bt00 
,70b9ltt00 ,710iUfct00 
,9l400bt00 
J> li 

,9060 Oh too , 69069b tnO 
,733eabtOO ,73733bt00 

,9oboot too 

Ja 14 

,90i00Et00 ,68t>67tfOU 
,75777EtOO ,7b054Etou 
,90300bt00 
J« IS 

,69600fct00 ,66i20t^00 
,7767bEtOO ,7609«EtOO 
,69800E+00 
JK lb 

,69300t*0U ,6799St+00 
,79757EtOO ,7992S£too 
,69300E+00 
Ja 17 

.aaeooEtoo ,6772 ie+oo 
, blu7Sfc + 00 ,8lb0ie. + 00 
,66600Et00 
Ja lb 

.SbuOOEtOO ,87Sllbt00 
,6307SEt00 ,83lbSt+00 
, bbaooE 1 00 
Ja 1 9 

.abOOObtOO ,b7379EtOO 
,04S92E^OO ,8i«)49tt00 
,b8000t^00 
Ja 20 

,b77o0tt00 ,673S96; + 00 
•bbOSbbtOO ,6bObSbtOU 
,8770oEtO0 
Ja 21 

,e7500£^00 ,«7SOOE+O0 
,b750OEt00 ,B75O0btOO 
,b75OOEtO0 


,68233E^00 ,bi093Et00 
,ab4l7Et00 ,S333bEt00 


,601 09ttOU ,6371 7EtOO 
,SSl7«t+00 ,b02S9bt00 


,67929b+00 ,84136E>00 
,6l27b£t00 ,b517it^00 


,67723EtUO ,b«432EtOO 
,bSe2bbtOU ,b8687bt00 


,67Sl2EhOU ,6Ub5bEt00 
,693VlttOO ,7l832fct00 


,67310Lt0Q •b4642EtOO 
,72300bt00 ,74256btOU 


,67l26bt00 ,6S0llEt00 
, 74746EtOO ,7b3lbEtOU 


,669tj9£tOj ,0Sl03btOO 
,7bHS9£tuo ,78tl3tt00 


,6b84bb«00 •aS371E«00 
.76726Et00 ,797l9Et00 


,66772b*00 ,aS59Ut+00 
,60416Et00 ,6tibSbtOU 


,6b7SlEtOO ,8S849E+00 
,81970E^00 ,82S49Et00 


,6b79bEtOO ,86lb2btOO 
,63427bt00 ,03b42btOO 


,8b924E*00 ,bbS39EtU0 
,64ai7EtOO ,85085bt00 


,b71SibtOO ,86987btOO 
,661bbEtO0 ,86299EtOU 


,87500Et0O ,67S00t#00 
,87SOOEtOO ,87500E»00 


,7b726£400 ,b93l9t400 
,bU97t400 ,b932bEt00 


,764S3EtOO ,7251SEtOO 
,6b27U400 ,72S17btOU 


,79720E+00 ,748blbt00 
,69b70ttUO •74664Et00 


•bO70UEtO0 ,7b6e3E400 
.72b3S£tU0 ,76686E400 


,6ltt97EtOO ,7blb2E400 

,748S2t400 ,7eib3t+00 


,62l75Et00 ,79410E+00 
•76699E400 ,794U6E40U 


,e2776Et00 ,804996400 
•762906400 ,604976400 


,633366400 ,81461b400 
,796966400 ,814816400 


,638776400 ,823926400 
•0O97S64OO ,823916400 


,844156400 ,832596400 
.821606400 .832586400 


,649666400 ,841046400 
,832826400 .6410U400 


,855426400 ,649416400 
.843656400 ,649396400 


,861536400 ,857816400 
,854266400 ,857806400 


,668036400 ,666336400 
,864726400 ,866336400 


,875006400 .875006400 
,875006400 .875006400 


,612876400 ,53i2SC400 
,767301400 ,030976400 


,662656400 ,002546400 
,784566400 ,037216400 


,698686400 ,651696400 
,797246400 ,041436400 


,726336400 ,068856400 
,007036400 ,044356400 


,748536400 ,718326400 
,614996400 ,040586400 


,767036400 ,742596400 
,821756400 ,048446400 


,782946400 ,763206400 
,827796400 ,050156400 


,797016400 r78U76400 
,833396400 ,051876400 


,809786400 ,797246400 
,838766400 ,053756400 


,621636400 ,011896400 
,844156400 ,055926400 


,632066400 ,025536400 
,849656400 ,056506400 


,843686400 ,036446400 
,655416400 ,061626400 


,854276400 ,850876400 
,661516400 .065366400 


,864746400 ,063006400 
,866026400 ,069666400 


,875001400 ,07SOOftOO 
.875006400 .075006400 


• «9405i400 ««1630t9M 
•••2386400 ,9I110I40» 


,551716400 ,517426400 
,661166400 ,915456400 


,612756400 ,586856400 
,879306400 ,910056400 


,658246400 ,636106400 
,677256400 ,90-4906400 


,693916400 ,677996400 
,875176400 ,899976400 


,723016400 ,710316400 
,873166400 ,695306400 


,747486400 ,737346400 
,871316400 ,890946400 


,768636400 ,760566400 
,869746400 ,•86936400 


,767326400 ,780966400 
,868536400 ,683256400 


,804206400 ,799276400 
,867756400 ,879966400 


,619736400 ••16026400 
,867526400 ,677226400 


,034296400 ,831656400 
,667966400 .875126400 


,848186400 ,846496400 
.80923EbOO .873796400 


,861676400 ,860856400 
,671526400 ,873586400 


,87500(400 ,87500(400 
.07500(400 ,87500(400 



Sample Case Plot: Simply Connected Region 


101 




102 


Sample Case Input: Single -Body Field 


TEST CASE - BOOY-FITTED COOKDINATE SYSTEM 
SINGLE BODY I K*HMAN«T«EFFTZ AIRFOIL# 26 ROINTS 


K-T AIRFOIL 



27 20 

1 200 0 

1 

1 i 

1 0 0 

0 

2 t 

I I 

27 -1 


i I 

27 0 


2 1 

20 4 1 

20 

1.9 0 

,0001 0,0001 

5,0 

0 0 

0.0 


0 0 

o 

O 

m 

to 

O 

• 

o 

o 

• 

O 

• 

o 

,499!>29 

-.000031 


,499623 

-.001402 


.496096 

-.002760 


,496293 

-.005552 


,470464 

-.009509 


.390149 

-.018591 


,269552 

-, 029966 


,122707 

-,040790 


«, 034902 

-.048453 


-,197472 

-.050524 


-.321146 

-,045592 


-.423996 

-.033739 


-.496506 

-.016526 


-, 502726 

,003620 


-.471102 

,026435 


-,396903 

,046642 


-.297913 

.096101 


-,153756 

,075299 


-,005644 

,074531 


,144046 

,064352 


,282251 

,047498 


,395776 

.026262 


,471990 

,011299 


,497103 

,006809 


,496419 

.003040 


.498779 

,00142b 



LTA 

0 

4 

2 0.0 


1 

100,0 

1.0 


2 

100,0 

l.O 


3 

100,0 

1.0 


a 

100,0 

1.0 

1 

l 

100,0 

1.0 

27 

l 

100,0 

1.0 

XI 

0 

0 

0 0.0 

1 

0 

100,0 



0 0 

I I 

0,0 0,0 0,0 2 <> 

0,0 0,0 0,0 



Sample Case Output: Single-Body Field 
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***************** I p,,( **••****.***..****.*...***..*♦ 

IHAX, j^Ax,Ndijy , ] Te K, ibts# lois^, 1 ^ ir, , iL# i-'t- i V, lotD \ ei i<i \ ^oo o i i o o 

I J T , r PL T H , ,^c y I L I f 1 # L 1 1 *? « , NUf^HN I , I 5*^ I H I , 1 1>^ 1 He* : 1 J J 0 u o y i 

Nttbt. I <* i 

K( ! J , H (i^ J ,K 1 i ) , Yi\H Ai^^ I-., MuiNl- , yul\»- , M ; 


1 , rt 0 (j u j u 0 a 

, '1 0 0 1 0 0 0 u 

,00010000 

5 , 0 0 0 0 0 u (' u 

u,onoGcro^ 

0 , u n 0 ooooo 

0 , 0 0 0 0 0 n 0 <' 

^0 

UV»!AIT,^(10) 1 

0 

.* , 00 Oil 0 0 0 0 






iNhACW'Nf'ACU J 

0 0 








blZtfKAno»Ul.ST#XHWXrt<?,yMi,YH.|> »5,OyCoOOOt) o.itcnpoyoo l(j,ou0u(fjf0 0,i»0ut)0o0ti o^ouooooro 0,oo000u0u O.OUOUOOOU 

JNiTlAL GJtbS ryptj u 
--HOdY be^i n MS-- 


L 

Ldb I d 

LM 1 

L0^ 

L. u y 



1 

1 

1 

e r 

•i 



i 

3 

1 

1 1 

1.) 



1 

1 

X 

n' 

-t M H AN f 

btGMf NTS 

-- 




L 

L^S I 0 


LHe* 

L 1 SIU 

LU 

L 

1 

e 

\ 

^0 

a 

1 

^0 


•-OurtH bUUNOAWY-- 

WAUIUb 1 5,00000000 AN(,Ut s U.OOoOOOuP 

OHlUlN AT < a 0,0 000000 n , y a o.oOOOUOOo 

NuHbtH UK ^^rJINTs S 1 bTtPS I^ ATiAii.f-tM UF i.>*HNirY Initial sTtn tLiNtA« cAbtj = 

UNIKU^M ACLtLf.KA T lu.\ PAkAMtTt'Y USKU, 
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TfeST CAbt - »UOY*FlTlfU CUUrtUlMATt SrSTk^ 

SI'^GLt BODY i f^ANMAN-TNtff 1 Z AIKF-UJL» It PUiNlS 

bODY-MTItD CUQUQInATK SYSTEM 

rKAxSFUKMtU OOuY, ^•T AIREulL »l 

FItLl> PAWAHtTEHS, numHEM of Xj-tiNtS * ^7 

NUMHEH UK ETA-LlNtS » 2U 


iTtPATIU^ PAKAMtTLWSl bUK ACCtLEMAriUN HAHAf*ETtH ■ 1,00000 

rtAXibUf^ NUMHK« Uf ITEHATiONS ALLOMtO « JOO 
allowable HEMATION tMHOK N0K«5l XI ,lOOoOfc*03 

Y| ,lOOoOE«05 

‘«tu-^rtfcM HF tM)DItb FULL) t 1 

plot HAPAMtIFPSi COPIES UtSlKtO » I 

LlNt«tlOMT OESiHED « 0 

PLOT SUE In y-DIHECTIUN » 0,000 

KATIU ■ 0,000 

LUGICAL CONH'JLS | LACC - vAPlArtLt aCCEIEWATIUn PaNameTEM FIELD CUNVEMGEO UHRECEVaNT IF LCON»THUEJ 

lcfal - audition uf inhjkugeneous temm completed 
LCOn • UNIFORM ACCECFHAUON parameter 


EXPONENTIAL DECAY PhS 
- ATTWACriON - 

... eta EJOATIOn MMb --- 


ATTHACriON lines 


J 

AMP 

DECAY 


1 

1 00,0 0000 ouu 

1,00000000 


2 

100,00000000 

1 ,00000000 


3 

I00,000f)0i)0n 

1,00000000 


4 

lOO.OuOOOOOU 

1 , oooooooo 


ATTRACTIO'S 

PUInT s 



I J 

AMP 

DECAY 

LPT 

I 1 

100,00000000 

1,00000000 

0 

dl \ 

loo.oonooooo 

1,00000000 

0 


I STEPS IN AODlllUN OF Inhumu&EnEOUS TEP”, INTERMEDIATE CONVERGENCE FACTOR ■ 100,00000000 

1,00000000 OF I nhUmOOEnEOuS term 
1,00000000 OF OUTER MUUnDAWY 

- maximum norms uf iterate changes logical controls 


ITERATE 

X - M u R M 

y -\uRM 

ACC-NURM 

AvG, ACC, PARA, 

LACC 

LCFAC 

LCUN 

1 

, 1 4090E4-0 1 

,3b662F>00 

0, 

1,00000 

T 

T 

T 

d 

, 7d7dit*0^^ 

, 34?46E t 0 u 

0, 

1,00000 

T 

T 

T 

i 

,ll796Et01 

, l0S32Et0l 

0. 

1,00000 

T 

T 

T 

4 

,S455b£A00 

,33196Et00 

0, 

1 ,00000 

T 

T 

T 

5 

,^76^5£♦00 

, 1 7047E^OO 

0. 

1 ,00000 

T 

T 

T 
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6 

,27424t«00 

7 

,25074k>00 

0 

,23641‘^*00 

9 

,233ibfc^0‘' 

1 0 

,23i02k^o0 

1 1 

,22900E^OO 

12 

,2l953t^00 

1 3 

,20 7 74t +00 

14 

• 19b29t + 00 

15 

, l0i25E4OO 

lb 

, ISbOattOO 

17 

, 1 1 877E400 

10 

,02255fc-Ol 

19 

,0bO74f.-O 1 

20 

, I0143fc^00 

21 

,90l20k-Ol 

22 

,96005E-01 

23 

,64595E-01 

24 

,6O740E-Ol 

25 

,4946U£-01 

2b 

,5753iE-ul 

27 

,50655E-ul 

20 

,51670f.-O 1 

29 

,64573E-0l 

30 

,57510E-O1 

31 

, 54 1 6 1 £-u 1 

32 

, 30O00E-U1 

33 

, 34066E-O 1 

34 

,39245L-01 

35 

,3Q429E-0l 

$b 

,4b4l5t-0 1 

37 

,4277bE-0l 

30 

,404ibt-01 

39 

, 374J7E-01 

40 

,26262E-01 

41 

, 16522E-01 

42 

• 1 1609C-O1 

43 

,53002t-O2 

44 

,55105E-O2 

45 

,3S0l0c-O2 

40 

,25005fc-02 

u 7 

, 15055E-O2 

40 

.10572E-O2 

49 

,994l2t-03 

50 

, 75450E-O3 

51 

,69234E-03 

52 

,52766E-0i 

53 

,437b6E-0i 

54 

, 39697E-03 

55 

,30279t-03 

5b 

.23031E-03 

57 

, 1 791 lE-03 

50 

, 163 7 7E-03 

59 

, 1 7506L-03 

bO 

, 12616E-03 

61 

•13322E-03 

62 

,994751-04 

63 

,01 15Ut-04 

64 

, 1050 lt-U3 

65 

,0 7 793E.J4 


,l^»7^0E♦gy 0, 

0 , 

.ibBbet^oy 0, 

•IHOU^ttOU 0, 

0 , 

, 1 ?u I utou u, 

.IttSMOttOO 0 , 

,l8Mb?ttgO 0 , 

•Iba^bttUU 0, 

,Jb«59EfOU 0 , 

.laboaEtoo 0, 

,833i2E-01 0, 

,bl29/f-oi 0, 

,;b7H7t-01 0, 

,9,?ttbBK-0l 0 , 

,7b0l0t-0l 0, 

,bS372E-Ul 0, 

,79«8bE»0l 0 , 

.ttg<i37t*fU 0, 

,7b95^fe-0i 0 , 

•b7772E»0l 0, 

.72U37E*01 0 , 

,biS19f-01 0, 

,b2b22E-0l 0 , 

,abU95E«01 0 , 

,b092bK*0l 0, 

,^)2tt7ak-0l 0, 

,b02M9t»0l 0, 

.42320t-01 0, 

.ibbboful 0, 

,39709t-Jl 0, 

,3577bt»Ul 0 , 

*2i9U7t»0l 0, 

• nUbk-Ol 0. 

.669blE-02 0, 

•662btE«02 0| 

.S16S3E-U2 0« 

,990S6fc-02 0, 

•37l«4fc-U2 0. 

*3950bE»02 0, 

,3bl30fc»02 0, 

,2b7y2E-02 0, 

•lb755k*02 0, 

, 1 003U«U2 0, 

.77b9bt-03 0, 

,60310E-03 0, 

,53640t-03 0, 

.483906-03 0, 

,353966-03 0, 

,312226-03 0, 

,2A3bo6-u3 0, 

,233536-03 0, 

,20 31166-0 3 0, 

,150656-03 0, 

,150356-03 0, 

,13bb0F-03 n, 

,l249H-03 0 , 

,106136-03 0, 

,937806-04 0, 

,932966-04 0, 


1,00000 T r 

1,80000 T f 

1,80000 T T 

1,60000 r T 

1,80000 T r 

1,00000 T T 

1,00000 r r 

1,00000 T T 

1,00000 T T 

i,aoouo T I 

1,00000 T T 

1,60000 T r 

1,00000 T r 

1,00000 T T 

1,00000 T T 

1,00000 T f 

1,00000 T 1 

1,00000 T T 

1,00000 r T 

1,0UOUO T T 

1,00000 T T 

1,00000 T T 

1,00000 T T 

1,00000 T r 
1,00000 T T 

1,00000 T 7 

1,00000 T r 

1,00000 T T 
1,60000 T T 

1,00000 T T 

1,60000 T T 

1,60000 T 7 

1,00000 T f 

1,60000 r r 

1,60000 T T 

1,60000 T T 

1,60000 T T 

1,00000 T I 

1,00000 7 7 

1,60000 T r 

1,60000 7 1 

1,60000 7 7 
1,60000 T 7 

1,60000 7 r 

1,60000 7 T 

1,00000 T T 

1,60000 7 7 

1,60000 T r 

1,60000 T r 

1,60000 T T 

1,60000 T 7 

1,60000 7 T 

1,60000 T T 

1,60000 T T 

1,80000 7 T 

1,00000 7 7 

1,00000 T r 

1,60000 T T 

1,00000 r r 

1,60000 T 7 


T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

7 

T 

7 

T 

T 

7 

T 

T 

T 

T 

T 

T 

7 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
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TfcST CASt • bOUV-FllTfei; CUOWUlNATt StJ>Tt« 

SlNtiUfc BOQy I isAHMAN»*TKtFFl^ AI»<KUIl» ^6 ►'Ul^'^Tb 

FJNAL VALUtS 


ilt^^ATION CUNWtHl^fcS, 

I-mUIaL ITEhaTIun EhHOH nCWMSi X| .laO^OttOl n , 3666^k^0U At ITtMATt » I 

yi'^AL ilkWAUUN tHHOH NUHHbl XI ,b7 793f0a U ,93ii9«t-0<4 AT iTt^^ATt U bb 

LOCaIIO^* UF mAaI^UH iTfcHAlIuN t*<WUKi Xi I» ll»J* 19 

YI I» ib J» 17 


X-aHKA Y 


js t 

,«99SJtTO0 ,U98b^kY0U ,49b(;9t*U0 ,a«b<J9btOO ,a7oabtfu0 
-,3<?115t^uo-,a2Jb9E^uU-,uBbblt + CiU-,b0^7ikTOU»,47not^OO« 

,«^a22'5E^00 ,39‘37bb>00 ,a7l99t+00 ,utf710b + 00 ,u9642t4U0 

J« ^ 

,bUb47E^00 ,S0930kTDO ,49742tY'00 ,a8ia5k + UU ,«4bd2t^u0 

- , 3 3 0 3 bk ♦ U 0 • , << 9'5 1 ♦ 0 0 - , 4 9 S 8 S L ♦ u U - , b I 2 7 8E ♦ 0 0 - # 4 8 4? 0 7 fc ♦ 0 0 * 

,2b^>6«t*00 , 37blU + 0O ,4bl34ttUU .abaibE^OO ,a989Ht + (j(; 
J« 3 

,b200btiO0 ,Slb22t^0U ,bCI4bSE+0o ,48071tTOO ,a3‘*9'>t^U0 

•,342b^£^00-,44ba7t^OO",‘5l07bt + 0^**52b62E + Uy«,«98l4t^UO' 

,25554t-A00 ,364l3ttu0 ,au222tfO0 ,4BbS2t + 00 ,b0 762t^00 
J * 4 

,bM0b9t*00 ,S3a«U+'>U ,^l79?E.iUJ ,4bb6Ct + U0 ,43yb9t + oO 

• ,3‘>b43t*00«,4 6bl3t + yO-,'33lb7t4uy-,S^09SEfOO«,52 00bt + 00' 

,24393btu0 ,3b74yt^'iu ,4«0b2t + 00 ,49273 EtOO ,b2243t^uO 
Ja b 

,b70l/k^00 ,b6l98E>00 ,5i9l9kT00 ,49bl4t400 ,43322tA>00 

•,i6Ob0EV00*,49l4lE4OO*,5bl 37fc^0O-,5BldbE+00-.550l9b^0O 

,23b4Ue^OO ,3bSl4t^00 ,4b5b2£^u0 ,50725fct0y ,54b20tt00 


,39ulbt+oy ,269bbttuO ,t227ltt00- 
,39690E + 00-,2b79U+yO-,ib376EtOg- 
.4967BE+00 ,4V9bit*UU 

.36743E+00 ,2bOb8t+UO ,i0776tt00- 
,40b43t>g0-,299b9t ♦00-, \ bbb9t+00« 
,b0b02t + 00 ,bOf>4/ttOO 

,3b2blE+00 ,23bbOt^OO ,9497lE»0l- 
',4237bt+yO-,il 3obE»uy-t l7647t+00- 
,bl764tTOO ,b2008k^00 

,i4ibeE^00 ,22b37bty0 ,8il92t-Ul- 
.,uu374b+0o»,33l0lb^00»,i9327t+0u* 
,b37t)OE + 00 ,b40b9bt00 

,33»9«tA00 ,2lb04E400 ,70«l6t*0l- 
. ,47l09t♦00•,354 39E♦0 0-.2l244t♦00• 
,bb49ae♦00 ,b70l7fc400 


J« b 

,bl255fc400 .bOlTbEtOO ,572251400 ,521216400 

-,4l Jb9t400«,529«ie400-,b0349t400«,b25«8t400» 

,2309bE400 ,ib888b40U ,4b9b7b400 ,b3262t400 
J« 7 

,67078E400 •bb709b*00 ,b20a5t+o0 ,b576bb400 

-,4b9bBb40O-,b6274bt00-,bb093b+U0».68468b4O0- 

,22918E^OO ,37ob9f400 ,a8b4Ut+00 ,b7137b400 

ja a 

,74770t400 ,73076E40 u ,6bbl2t4U0 ,b09b7t400 
-,bl987E400«,bb234E400-,73b36t400-,76224E400- 
,23lbdE^OO ,39l32t400 ,b2380b400 ,62555bt00 
Ja 9 

,tt4620E400 ,82bb7t400 .76Q94E+00 ,67909E400 

• ,b9bi8E400-, 7410ie40U-,8325bE TOO* ,8bl07E4 0 0- 
,23848E400 ,42lblE400 ,57bl2t400 ,b9705b400 
Ja 10 

,9695bE400 ,944b2E400 ,b772lt40O ,7b798t400 

.,69l34t400*,8bl52b400*,9b2b3E400*,9844bE40U» 
,24944E400 ,4bl9bt400 ,643bbET00 ,7879lb400 
Ja I 1 

,U2UE401 ,l09lbE4Cl ,l0l02fc40l .87890E400 

• ,ao75bE400-,9l722E400.,U003E4l)l*.n JbiEbOl- 

,2b4bbE400 ,513141400 ,728071400 ,900*21400 


,444781400 ,340081400 ,208531400 ,58280l«0l- 
, 59297140 0», 5 1059E400", 388621 40 0*,?401 8140 0« 

,S7992b4U0 ,b05b2bt00 ,bl25bfc400 

,4b7b9EA00 ,549lbl400 ,204581400 ,a0394b-0l« 
, bSlOU40 0»,bb44 3140 0-, 4 35381400^, 277591 400- 
,b29ibb400 ,bb 1611400 , 67078b 400 

,b03b2b400 ,3b73bb400 ,204911400 ,23376t-0p 
, 72690l400-,b3472l400-,49b23t400«,32bbll400» 
,696041400 ,736321400 ,747701400 

,553431400 ,395221400 ,209571400 ,a88?U*02' 
, 8234 1 140 0», 7 2 3821 4 0 0-,b 729514 0 0-, 385501 40 0' 
,782391400 ,831931400 ,846201400 

,618721 + 00 ,433271400 , 2 1 8441400-, i57 351-0 1' 
,94 3691400-. 8 34531400-, 66 7861400-, 659021 4 00' 
,891101400 ,951751400 ,969561400 

,701051400 ,482311400 ,23 15 1 l40 0- , ]9268t-0 1 

, 1 09 15140 1-, 97 0301400-, 783891400-, 5a888t400 

,102541401 ,109941401 ,112181401 


,348021-01-, 18VM71400 
,56tt40t-02 ,14405E400 


,467501-01-, 197561400 
,181281-01 ,130021400 


,584671-01-, 209051400 
,302881-01 ,117971400 


,700471-01-, 22272E400 
,430071-01 ,106891400 


,858951-01 -•240951400 
,582551-01 ,953311-01 


, I 08701400- ,287951400 
,790021-01 ,819121-01 


,133571400-, 304931400 
,105491400 ,673661-01 


, 166661400-, 352901400 
,138101400 ,518521-01 


-,207381400- ,4 13081400 
-,177641400 ,349691-01 


-,256l5t400-,487 121400 
-,225341400 ,160021-01 


-,31476k400-,57720l400 
-,282801400- ,592691-02 
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j« u 

,liU6«?et01 ,|0l5lt^0l 

•,9attS!>t too-, US^ittOl-, I*. 

,^a3b'3l■.♦00 ,li76^4t+uO .bSlb^t^OO .lOSBMfcfiU 
Js IS 

,153l^£toi ,laH»i3t + 0i ,i57uit + ul .UflObt + Ol 
•*llia^£+UJ«,MS)7t*0 1»,l4V78t + 01-,lby5yfc401 
, 306878+00 .abiffbt + oy ,9b681t + 00 ,12051t+0j 
J= J4 


,S027Ut00 ,b4 357t + 00 , ?a69 1 1 ♦ 0 0» , ^66 UC»0 I •, i»50 lfc»0 0* , 6a*07 1 tOO 
*l^7l4tt0l»,U3bit + 0 l»*9ia67fc + 00*,6!>a7SC+00», 3b?0 3£ + 00«, 3ia37e»01 
• uav^t + ul ,U?9af + 0l ,130bVt + Ul 

,9«>6b8fc.*U0 , 618678 + 00 ■£7091t + 00*,9875MC*01-, 4 69 17fc + 00», 617078 + 00 

,1489l8+Ol»,l3346E+01-,10947E+01*,78737fc+OU*,43b96t+00-,62917r*01 

,138738+01 ,149728+01 ,lb3l28+0l 


,180138+01 ,17b02E+01 
-,132328+01-, Ib9i7t+ni- 
,534648+00 ,744b48+00 
J» lb 

,212b98+oi ,200498+01 
Ib68b8 + Ul-, 1879 78 + 0 1 - 
,36/088 + 0 0 ,8b39U + ou 
J* 16 

,2bl498+01 ,244238+01 
l8b23t + 0l-,22247t + <M- 
,404b38+00 ,983bl8+OU 
Ja 17 

,298068+01 ,289428+01 
-,221 4 28 + 0 1 -,2b 3 7 68 + 0 1 - 
,447008+00 ,ll3hb8+0l 
J» 1 8 

,3b377E + ()l ,34iS08+Ol 

-,2b3b3t+0l-,5l3l48+0l- 
, 494628 + 00 ,Ml6bfe + >)l 
J« 19 

,420388+01 ,40rti7t+oi 
-,313928+yl-, 572168+ 01- 
,b468U+u0 ,lb2738 +ol 
J» 20 

,b00008+0l ,48b47F+0l 
3742 6E+01-, 4427 38+01- 
,602686+00 ,177306+01 


,160808+Ul ,138038+01 
,17b98f + 0l-,. 161448 + 01 
,110748+01 ,l40bb8+01 

,189408+01 ,162058+01 

,207438+01-, 213808+01 
,l2H7ut+0l ,164b88+01 

,2257u 8+01 ,190848+01 
,24bl lE+Ol-,2S2b8t+0l 
,150218+01 ,193276+01 

,264768 + 01 ,225iU+0l 
,290208+ul-,298998+01' 
,175716+01 ,227b0t>01 

,313898+01 ,26649£+(>l 
,344l28+ol-,3ba498+0l' 
,205968+01 ,268258+01 

,372618+01 ,315658+01 
,408548 +01-,420818 + 01« 
,241768+01 ,316718+01 

,442738+01 ,374268+01 
,485478+0 l», 5000 08 +01* 
,284038+ul ,374266+01 


, 107648 + 01 ,709686 + 00 ,2980lEtOO-,i3667t + 00-,56994t + 00-,974338400 
I 75128 + 01 15 7508 + 01-, I 29948 + 01 -, 944708 + 00-, 536058 + 00-, 100596 + 00 

,162598+01 ,175946+01 ,180138+01 

, 125658 + 01 ,819216 + 00 , 330 788 + 00., i 82368 + 00-, 690638 + 00-. I 16296 + 01 
•,2066U6+Ul-, IB6368+01-, 1545 46 +01-.11 34 08 +01-, 65 7448+00-, 146596+00 
,191198+01 ,207428+01 ,212598+01 

,147238+01 ,950366+00 , 3699 38 + 0 0-, 2 36998 +00-.8 35 368 +00-, 136898+01 

•,24a34t+ol-,22o978+Ol-,l64088+01-,j36l78+01-,80404t+00-,203l3t+00 

,22543t+ul ,245136+01 ,251498+01* 

,173048+01 , 110688+01 ,4i615t+00-,303026+00-,l00916+0l-, 165966+01 
',289538 + 0 1 -,262446 + 0 1-,219528 + U 1 -, 1 63568 ♦ 0 I - , 98 I 336 + 0 0- , 2 729oE + 00 
,266336+01 ,290238+01 ,298068+Ul 

,20 3828 + 01 , 129288 + 01 , 4 7 0 I 0 8 ♦ 0 0- , 303358 ♦ 0 0 - , 1 2 1 7 98 + 0 1 - , I 98406 ♦ 0 1 
-, 34 3598 + 0 I - .31 2U 6 + 0 I -,262 048 + 0 I -, I 96528 ♦ 0 I - , U 96 08 + 0 1 - , 3595 I 6 +00 
,315158+01 ,544158+01 ,353778+01 

,24 0488 + 0 1 ,151316 + 01 , 5322 1 8 ♦ 0 0 - , 48 1 608 ♦ 0 0 - , 14694 1 ♦ 0 1 • , 23 / 326 ♦ 0 I 

,40822t+01-,37l578+0i-,3l3058+01-,2362l8+0l-, 145656+01-,467466+00 

,373368+01 ,408576+01 ,420388+01 

,2840 38 + Ul ,17 7306 + 0 1 , 602688 + 0 0-, 602668 + 0 0- , I 7 7308 + 0 I 264038 + 0 1 

, 485478 + 01-, 4427 38 + 0 1 -,374268 + 01-, 284016 + 01 -, 1 77 J06 + 0l-,602*ai + 00 

,442736+01 ,485476+01 ,500006+01 


Ja 1 

-,3l00OE-04-,1402u8-o2-,276O0t-u2 
-.455928-01-, 337398-01-, I b526t -01 
,474988-01 ,282628-01 ,U2998-ci 

Ja 2 

-. 3654 76 -0 3-, 787958-02-, 1622 78-0 1- 
-,825968-0 l-,bU827E-J 1 -,299568-0 1 
,915418-0 1 ,679868-01 ,44i)69t-ul 
Ja 3 

-,907378-03-,l7l858-ol-,345l8t-ul' 
-, 1 192 68 +00-.87 9 6 28 -01 -,4366 78-01 
,136138+00 ,109b98+no ,8u5298-01 
Ja 4 

-,l60958-02-,2a924f-ul-,569218-0l' 
-. 157476 + 00-, I 162 08 + 0 0-,S8024t-Ul 
,183448+00 ,154538+00 ,l2n57t+00 
Ja 5 

-, 247 I 48-02-, 434408 -0 1 -,84 3 368 -01 • 
-,201426+00-, 1 47926 +00-, 739316-0 1 
,239766+00 ,207606+00 ,167766+00 


> Y-AHMAy *********+++++***+*****+****************•«*******•«* 

•, 555208-0 2- , 850906-0 2-, 185918-01 -,299668-0 I -,4079 08 -01 -,484536 *01 -.505246-0 I 
,382006-02 ,26435t-ul ,486428-01 ,661016-01 ,752996-01 ,745316-01 ,643526-01 
,680908-02 ,304006-02 , 1 426 06 -02- , 3 I 000 1 -0 4 

,267318-0 1-, 397856-0 1-, 5783 16-01-, 746276-0 l-,07647t-Ol-, 947576-01 -,937048-01 
,626618-02 ,439558-01 ,780216-01 ,103608+00 ,il7736+00 ,119526+00 ,109956+00 
,281568-01 ,162698-01 , 7 320 06- 0 2 - , 3 65 4 76 -0 3 

,539906-0 1-.75821 6- 01-, 994888-01-, I 19726+00-, 1 33956 +00 140248+00-1 136206+00 
,844426-02 ,612588-01 ,107196+00 ,140018+00 ,i5979t+00 ,164148+00 ,155408+00 
,552698-01 ,339048-01 , 1 56468 -0 I -, 90 7 378-0 3 

,861268-0 1-, 1 1 5968 + 0 0-, 144496 +00-, 167468 + 00-, 182536 + 00-, 10 7808 + 00-, 180568 + 00 

,104088-01 ,788928-01 ,137378+00 ,179648+00 ,203918+00 ,211086+00 ,203348+00 
,869068-01 ,553408-01 , 260 936 • 0 1 - , 1 60958 -0 2 

, I 24888 + 0 U-, 163668 + 0 0-, l98 04t + 00-,224398 + 00-,2404 6t + 00-,244268 + 00-,2326lE + 00 
,122458-01 ,980298-01 .171266+00 ,224538+00 .255916+00 ,266976+00 ,260576+00 
,124788+00 ,014566-01 , 390066-0 1 -, 247 1 46-02 
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j« * 

• ,35i0»fe-02-tfcn9lf0l-, l I906tt00-, I7 4iifc + 0 0-,i^510t400» 

• ,2562»ktOO-,ie904ftOO-,9i47lfc»OJ ,ia034t»Ol ,l20Ut400 
,Sl459t^00 ,2769U»00 ,22flUE^00 ,l727et>00 ,ll«M6k + 00 
J» 7 

• .47303fe«0 2-,d4226E-0 1 - , lbl62t + U0*,234fleM00«,3OO6tit + 00- 

32l2U*00^,23060EtOO», M4bbE40t) ,l!>736t-0l ,14‘>29E^00 
,a07b3E^00 ,3627St*0Ci ,302«lt>00 ,23lb7tf0u ,l!s49btto0 
Jm » 

• ,b06lOE*O2-,ll I0 4tt0u-,21259t + 0 0*,i0 7«9tt00-,3.9lbbt + u0* 

• ,3963bE40O»,262ilEtO0-, lUOOU + yO ,l7323E»0l ,l738bE + 00 
,Sld5*>£400 ,4bS4lE^OO ,39l3St + 00 ,30226t*0U ,203^ttk*l}0 
J* 9 

•,745b4e»02»*ia2bak^0Q«,2727btt00»,393l4fe.+00*,4982StfOO« 

• , att2e0fc^00»,3«lb7£^00», J69b4E^00 ,l677flE»0l ,20<>35E + 00 
,b«82aEt00 ,58b05E+00 ,49b2iEtOO ,3BS75E+00 ,2bl28t>00 
Ja 10 

-,8e73lE-02»,l79bafctOQ*,3a33 7t + 00»,4935!5t^OO-,b230 0E + 0 0- 
-,582b4E400»,9lOabE^OO-,20M24fctOO ,20079L-01 ,243Slt+00 

,7990bt+00 ,72b9btt00 ,bl922E400 ,a8399t+00 ,32936tfU0 
Js i\ 

*, 1 0252t-0 l»,22289t ♦0 0-,426 1 ottOO-,bUl2t*OU-,7b8tt9ttOO- 

• ,69828E*00-,490b9t ♦00»,24480£t00 ,21195E*01 ,28b28E*-00 

,97472EtOO ,89lbSE+00 , 7b542t+0u ,S99a8ttOO ,409b4Ef00 
Ja 12 

•, I 15l3E»0l»,273blf ♦0U-,52314t+y0-, 749lo£tOU-,93982EtOO- 
•,83i4it^00*,58ao4tt00»,292b7E+00 ,22074t»0l ,33S78t^00 

.nflOlE^Ol ,l0847t*01 ,93280t+OO ,735S3£^0U ,5044b£^00 
Ja 13 

• , I2b00t-0l«,33284fc^0 0»,b3 733fc + 00-,9l I43tt0o-, U4U9E + 01'- 
•,992U5E^OO«,695l5EtOO-,34903E+00 ,2263lt-0l ,3933bE+U0 

,14212£ + 01 ,l3U9E^0l ,ll327FfUl .89627E + 00 ,blb7U + 00 
Ja 14 

• ,l33bg£-Ol»,40 2b7t + 00*, 7720U + UO»,ll05lE + Ol-,l3781ttUl* 
•, I l79lt^Ol»,82Sbbfct00-,41b01t^O0 ,227‘>lF-oi ,4b05«£>00 

,l7055t^0l ,1580U»01 , 1 3690tt0l ,lOeb«k^Ol ,75008£400 
Ja 1^ 

• « l37 09t»0l«,4eSO0EtOO»,93l44t + 00»,13300EtOl-, 1659U + U1. 

>• 14003£^01**98027£4>00«,499b9t400 ,2227ifc»01 ,%3933£t00 
,2041T6^0l ,18979E401 ,lb495EtOl ,13132E«01 ,9089UtOO 

Ja lb 

• , I340b£-01»,58244£t00*, 1 1207tt0l», I S9Q6t ♦ (U • , 1 992bE^U I = 

• , I6626kt0l», Ub39k’ + ul-,59067tt00 ,209b9E«Ul ,b317b£t00 
,24«Obt^OJ ,2275ae>0l ,l9833t^0l ,1583U*01 ,10986E + 0l 
Ja 17 

•, l2292t-Ol-,b9804EtOO-, I 34bO£+Ol-,l920bEtOl*,23902tt01« 
•,19743E401», 13823E^01-, 7UU09E+0U ,l8b48E-0l ,74043£+00 
,29H9EtOl ,272b2Et0l ,238l5E + 0l , 1905bE40l ,l32b8E*gi 
Ja 18 

-,995b4t»02«,835blE^00-, lbl40E♦Ul•,23O43E♦Ol-,28648E♦Ol• 
^p234S5E♦Ol•*l642bE♦Ol-,83972E♦OO ,l459b£-0l ,6b836E+00 

,34803E»0l «32b21t401 .28577£4ul ,2292lEt0l ,lb9b5E^0l 
Ja 19 

-,b03l8E-02»,99982E+0U-,19i68£*Ul»,27b37E+Ul-,34329b^0l- 
-,2787BE^0l*. 19530E + 01-, 1002U^O 1 ,eb30Bt*!)2 ,10l90E^0l 
,4lb5bE^0l .39046E+01 ,34287E^01 ,27bbit^0l ,19270k^0l 
Ja 20 

0, •,ll96bEtOl-,2323bE*Ol-,33l5bEtOl*,uii49E^01« 

••3il56Et0l«.2323bE^0 1*, I 19bbEf 01 ,58bS9£»l2 .ll9bbEt01 
,49b3bE401 ,4b7blEt0l ,4ll49t+01 ,33l56Ef0l ,2323bE401 


2b838EtOQ*« 

30033LtU0«, 

SlblBE^UO*, 

3l929b+00*. 

30001EbOO 

2l20bEtOO , 
bb3b0t*0l-. 

26094EtU0 

3b208b«02 

323bbEtOO 

34139t^00 

33723E«00 

,35bblfct00-. 

3947 Ib^OO*, 

U I444t + O0-, 

4U2b£tg0- 

3ei29£^00 

.25949E+00 , 
,75a^>9t-0l-. 

347b9b^00 

47303t-02 

aOb73Et00 

4330 1E400 

43242£t0g 

,45977Et00-, 

50bb8E+00» 

,S260b£tOO* 

bl69bbtg0* 

47b79£tOU 

,3130lEtOO ,425lBE+00 
,99b99t-0l-,b06l0t»02 

»S013bE^og 

,b4077t-f00 

b4526bt00 

,5>bl8bEtOO- 

6i7b2t4-00« 

.bbVbbt+OO- 

,6431 0£+00- 

,58444£t00 

,37b93t+0U 
. 12b^>9t + 0U- 

bl377b400 

74Sb4b-02 

,bU34£»00 

,b6529£*00 

,b7b42Et00 

, 724 l2Et00- 

7b92bE+00» 

.SllBBttOO* 

7bbg9t^g0* 

, 70953t + 00 

,44722E^00 
, lb284t + 00* 

,6l5b3t too 
,6b73lt-02 

,7i78ltt00 

,ag067£^go 

,b282bEt0U 

,b6997t+00« 

,96bbbt^00» 

,q8791E+00- 

,9bl64btOO- 

,b544gE400 

,529!>at + 00 
,20342t+00- 

,73306E^00 
1 02b2b-0l 

,ft8397£t0g 

.97507E +00 

, 10o4b£t0l 

, 1 Ob4 lE +0 1- 

,ll714b^oi- 

, 1 I934bt01» 

, 1 1445t*0 1- 

. 10233bt01 

,b2Sl2E»00 

,25l57t>00- 

,8b964b4>00 
1 lbl5b»0l 

,igb39£toi 

, 1 IbttSt +0 1 

,12100E^01 

,lil20Et0l- 

,14130£+01» 

,l4343b^0l- 

, l37ubt*U 1- 

, 122UE + 01 

,73670Et00 

.3O803E4OO- 

, 1 0292t + 0l 
, 12bOQ£-01 

,l252b£>0l 

, 1 3949t^0l 

, I4b0btt0l 

, lbblOt*Ul- 

, 1697fat^0l* 

,l7l79b+0l- 

, 1 b 3bbb ♦ 0 1 • 

, 14544E401 

,6b74bE*00 
,377 |4t^00» 

, 12164£401 

, 133b0k«ul 

, l4bb9t*0l 

, lbblOfc+01 

,l7J43b401 

,18992E^01- 

,20343E«01» 

,2g533Et01« 

, 1951 lEfOf 

,l7300E^Oi 

.10212E401 
.4b6«3Ef 00* 

, 143b9E^01 
, 13706E«01 

, l7b09£t0l 

, I97b0£4gi 

,20b92Et01 

,22770t+01- 

.243i8bt01* 

,24b09bf0l- 

,23239£401. 

,20bb7E«01 

.12025E+01 

,55b80t+00» 

, Ib972£t0l 
• 13406£-01 

•^OBSbt^Ol 

,234b4b<^01 

,24659£f 01 

,272b7Ef0l- 

,29090t+01- 

,29237£t0l« 

,27669ttUl« 

,2444«E401 

, 14l65E^0l 
,b7457E400- 

,200S1£*U 1 
,l2292t-0l 

,24707t40l 

.27869b»Ul 

,29370fc+0l 

,32634t*0l- 

,34756btOl* 

,l4870E^0l» 

,32943E^01- 

,29Ub8Et01 

, l669bE40 1 
,6lbblE«00* 

,23697t^0l 

,99bb4t-02 

,29273t+0l 

,33ig2b«01 

,3497b£t01 

•,390b3E*0l- 

,4lS27£^01- 

,4l59it+0l« 

,39235tt01- 

,3457bE^0l 

, I9b90e+01 
,98633E*00« 

,28022bt01 

•b0318E«02 

,S4b9bE701 

,39530£^01 

,41657bt01 

-,4b7blEtOl» 

,4963bEfOl» 

,«9b35£t0l» 

,ab75lt+01- 

,41 149£«01 

,2323bE401 
, 1 l9bbE^010 

,331S6£«01 

t 

.til l49Ef0l 

,4b75lE+0l 

,49b3bE«0 1 



9 
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Sample Case Input: Double-Body Field 


TEST CASE - 80DY-E1TTEO COUKDINATt SYSTEM 

OOUBLE BUOY I TmU K ARM AN-T REE F T Z AlRFUlLS# ^6 POINTS ON EACH 
K-T AIrtFOlL-FLAP tn 


69 

20 

2 

200 0 

1 1 

0 0 




1 

3 

1 

0 0 

10 0 

1 1 




a 

2 








i 

1 

14 

•1 






i 


69 

•1 






i 


48 

-2 






3 

i 

69 

0 






1 

14 

22 

1 48 

56 





2 

1 

20 

4 1 

20 





i.e 

0 

,000 1 

0,0001 

5.0 

0,0 

0,0 

0,0 

6» 

0 

0 

0,0 







0 

0 








6,0 

0 

• 0 

10,0 

0,0 

0,0 

0,0 

0.0 



,60Bia7 

-.162448 

,607780 

- , 1 6263 1 

,807061 

-, 162608 

,804501 

-, 161989 

,800795 

«, 160650 

,782146 

-.152794 

,754614 

-.140162 

,72146b 

124170 

,686409 

-.106140 

,653096 

-.067505 

,624771 

-,06972b 

,604009 

-.054319 

,592603 

-.042765 

,591634 

-.036332 

,601306 

-.035389 

,620148 

-.039856 

.645928 

-.049700 

,676123 

-,06447b 

,708095 

-.063158 

,739231 

-.104073 

,767046 

-.124996 

.789221 

-.143353 

,803601 

-.156552 

.806312 

-, 159414 

,607858 

-.161394 

,808167 

-.162039 

,49952b 

- , O'U 0 0 3 1 

,498623 

-.001402 

,496086 

-.002760 

,486293 

-.005552 

,470464 

-.008509 

,390i48 

-.018591 

,269552 

029966 

.122707 

-, 040790 

,034802 

- , 048453 

,187472 

- ,050524 

,321146 

-.045592 

,423886 

-.033739 

,486506 

-.016526 

.502726 

.003820 

,471102 

,026435 

, 396903 

,048642 

.287913 

,066101 

,15375b 

,075299 



Ill 


•,00b6444 

,074bil 

, 144046 

,<J64iSa 


,047498 

,39b776 

,0?62bZ 

,471990 

,01 1299 

,467.105 

,006809 

,496419 

,005040 

,498779 

,001428 


tTA 

0 

4 

2 0.0 


1 

100,0 

l.o 


2 

1 oO , 0 

l.O 


i 

1 0 , 0 

1,0 


4 

to 0 , 0 

1.0 


1 

100,0 

1.0 

48 

1 

10 0,0 

1.0 

XI 

0 

0 

0 0,0 

3 

0 

100,0 

1.0 
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Sample Case Output: Double -Body Field 


***««**««*«««*•** Input **««•**«**«*************«•*««« 

JhAX , NbOY , I TtP# IGfeS I 10 iS^ f Ik, 1.1INTL# 1 Ititu I b9 ^0 ^Ou U I I 0 U U 

IPLOT# IPLT«,ncL)PY,l1>JkT I ,LI'^kT£,n‘Jm«k,numHK 1 , ISKiPi , iSMP^ | I i I 0 0 lO 0 I I 

N0SbC,NNStU I a ^ 

H(l),H(ii),P(i;,YlNFi''t,AINFlN,XUlNF,YUlNF,Mv-F * 

l,dOOOOUOO .OOOlOOOu .OOUIOOOO ‘j.UOOyOUOg O.OOOUuOuO 0,0o00('000 o,oouoyogo bb 

IbV«lAlT,HnOJ I 0 0 o.OUQgOOOU 

InFAC»I^FaCO I 0 0 

SIZfc#HAT10,0iST,X(ll,XH<i,rHl,YH^ b.UOOOOunu 0,00000u0y 10,00000000 0,00000000 O^OOOOOOOO 0,000000 0 0 0,00000000 


INITIAL GUtSS TYPfcj 0 
--B0UY StG^fcNTS — 


L 

LbSlO 

Lbl 

132 

LbDY 



1 

1 

1 

la 

-1 



2 

I 

bb 

64 

-I 



3 

1 

22 

48 

-2 



6 

i 

1 

69 

0 



•Ht 

•fcNTHANT 

SEGHtNTS 

- 




L 

LNSIU 


LH 2 

LISIU 

LU 

l 12 

1 

1 

14 

22 

1 

48 

S 6 

2 

2 

1 

20 

4 

1 

20 


--OUTtW aOUNUAHY-- 

i^AUIOS ■ b,000Q0000 IMTlAL ANbLb « 0,00000000 

ORIGIN AT X ■ 0,00000000 , Y s O.OQOOOOOO 

NUMbfcK OF POINTS ■ 66 I STtPS 1^ AlTAlNWbM UF INFINITY InITIAU 3TfcP UiNtAK CAStJ « 1 


UNIFORN ACCtLtRATION PAKAwtTbH USfcU 
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IfcJjT CASt - n ItD tUU*<OlNAlt bTSltM 

LtuuwLf oooY I r^o r MtM AinfuiLS# e*> f»oiNrs un tAtn 

t»uuv-fir?tD Cuu»<i;lNAit srsit^ 

lH*NbFU«."tu HtiUT, ^•T Alrt^UlL-^tA^> «i 

FlkLU PANAM^rkHS, NUHHtw uf Xl-tl^tS * 69 

UF tlA*L.l'^F.S » 


llL'^AliuN Paha-^LIEkS; 6 uk ACCfcUfcHAllUv PAPAf^tHH a J.ttUOUu 

NuMtttW OF PtHATlUNS ALUO**tO a pOy 
ALLO>'<AHLt Ilt-^ATIC^ tPHOH NUHr^j A| .lOOflUt-OS 

n ,lOOoOt -03 

oviultb fillu : «! 

hljI Paka^'E Lt*PltS DtblPti) a I 

PLUT :SUh In Y-i>IPtCUUN a 6,0u0 
PATIO 3 u.OUO 

logical CU>(P0L5 I lALL - *AMlA6Lt A C C t L t 9 A T 1 u ^ PAWAwfeieK FIELD tPNVEPGtU ClNWtLtVA^T IF LCONalRUC) 

tC^Ac - Audition uf inhu^ugeneous iehm cuhPLtrfco 

LLJN - unIFOP*! ACLFLtKAliUN HAHAMtltM 


exponential decay kh5 
- A T Th AC T iUN - 

- - - t(A tDUATlON Pub 

aTTHACTIOn lines 

J Ar-'p DECAY 

I I 0 0 (J , U U 0 U U 0 0 fi 1 , J LUi [t u u u U 

^ laon.ouotuirjuj i.joouonk^o 

S 1 J 0 0 . U iHj u 0 0 n l , 0 (i u D 0 0 y 0 

u 1 0 0 0 , 0 0 u 0 n 0 u 0 1 , j n u n 0 0 u u 

A i I P AC T ION PU IN Tb 

1 J A ‘Ip decay LPl 

c? P 1 1 U J 0 , 0 U (j U u 0 u 0 1 , 0 0 (1 U U U 0 u c> 

1 1 njn , l 1 H nu ,1 n n u l, 0 Ci'OUU 0 O 'J 

i bTtPS li^ AOuIUUn of nEOIjS TEPm, InIewpEuIaTE CUnvEPCENCE FACTOP a lOO,OOOUOgOO 

,«?byuOJOO OF Inhu''*ODFnEUu 5 TEpp 


1 , Oil 0 i> 0 U l) (} UF tioTtP hU'J.*DAPY 



NuP'^S oF 

1 1 e p A 1 t L P A N U E S 



logical 

COnTHOlS 


1 TEPaTE 

A - NOP"'- 

y « N u p p 

ALC-nUp'’ 

A Vi», ACC ,PAPA , 

LACC 

lcfac 

LCOn 

1 

, la90PE + ')l 

, 1 PbbUE ♦ DO 

n , 

I , 00000 

T 

F 

T 


,9P01 7E>0U 

, ib<J91E>0U 

fT • 

1 ,oooon 

r 

F 

T 

i 

,^I9JUt+01 

, 1 6 6 b d E ♦ i> 1 

0 , 

1 , bO OU 0 

r 

F 

T 

a 

,9U1PE+0D 

,^P^^Sbt too 

0, 

1 ,aoooo 

T 

F 

T 

b 

, 7 1 0 5wt tii'i 

, lb9 4iF. ADO 

0, 

l , booyo 

] 

F 

T 

b 

,b37P7E + 'J>' 

, 1 799bE fuo 

0 . 

1 . b u 0 0 0 

r 

F 

T 

7 

,SiobaE*ui' 

, lf^737f fOu 

0 , 

1,60000 

T 

F 

T 

H 

, aa^biE♦D■• 

• I 9Pb<?t ♦ uy 

0# 

1 ,60000 

T 

F 

T 

9 

,<*i77 0E^Jo 

, <» 0 0 D 1 E ♦ 0 0 

0 . 

1,60000 

T 

F 

T 
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10 

,bb7uSfc+00 

,20b63fc +00 

0, 

1 ,fl0000 

T 

F 

T 

1 1 

,b722bt 400 

, 2 1 043E +0 0 

0, 

1 ,aoooo 

T 

f 

T 

u 

, 7b723fc.»o0 

,2 1 463fc too 

0, 

1 .aoooo 

T 

F 

T 

li 

,021 lb£ + 0 0 

,21 761 t+ou 

0. 

1,60000 

T 

F 

7 

1 a 

, 7b704h+00 

,2lbl2t + 00 

0. 

1 ,60000 

T 

F 

T 

lb 

,bO9abt+0 J 

,<?0a90t +0u 

0, 

1,60000 

7 

F 

T 

1 6 

, ba2b 3E ♦ 0 0 

, 1 64b2t + 00 

0 • 

1 ,60000 

T 

F 

T 

1 7 

,467461+00 

, 1 6b74t+0o 

0, 

1 ,80000 

T 

F 

T 

It) 

,3624bt+0u 

, 1 7 4 6 7 h + 0 U 

0. 

1 ,80000 

r 

F 

T 

1*7 

.34247E+00 

, 1 b 6 7 2 1 + ) 0 

0, 

1,80000 

T 

F 

7 

*Jo 

,2S359fc+00 

, lb2blt+00 

0, 

1 ,80000 

T 

F 

T 

i\ 

,20bl lt+00 

, i47bbt+00 

0, 

1 ,80000 

r 

F 

T 


, lBoubt+00 

, 12427E+0O 

0, 

1,80000 

T 

F 

7 

<?i 

, 1 622 3t + o0 

, n 2 7 1 E ♦ 0 0 

0, 

1 ,80000 

T 

F 

7 


,lbS27t+00 

. 1 i44l£ +00 

0, 

1 ,80000 

T 

F 

T 

2b 

, 1 5b49fcto0 

, M 7 2 0 E ♦ 0 0 

0, 

1 ,80000 

T 

F 

7 

2b 

, 1 3b4bL + 0<^ 

,l^2bbE+00 

0 1 

1,80000 

T 

F 

T 

27 

,140S7b+0u 

, 9 2 b 2 b f - 0 1 

0, 

1 ,60000 

T 

F 

7 

2b 

,13/06E+00 

,6h305t-U 1 

0, 

1,80000 

T 

F 

T 

29 

, 12S30E + 00 

, 79hb4fc-n 1 

0, 

1 , 8 0 0 0 0 

T 

F 

T 

^0 

, 1 *>7SSb + 00 

, 73bO2E-0l 

n. 

1 ,80000 

T 

F 

T 

31 

, 1 lO0ut + OO 

, b l ibbt - 0 1 

0, 

1 ,80000 

T 

F 

T 

32 

, 1 122bt + 0o 

,bb33HE-01 

0. 

1 ,80000 

7 

F 

T 

3i 

,99 73at-'M 

,bbb32£ -0l 

0, 

1 ,80000 

7 

F 

T 

34 

,09M0t-0 1 

,47b4iE-0l 

0. 

1 ,80000 

7 

F 

T 

3b 

,a7JH7fUl 

,a6b95t*Ul 

0. 

1 ,60000 

7 

F 

T 

3t> 

,94404t-0 1 

.49763E-01 

0. 

1 ,60000 

T 

F 

T 

37 

,8bl 1 7t-0 1 

,bl29bE-0 1 

0, 

1 ,60000 

7 

F 

7 

3b 

, 76940fe«0 1 

,bb242E»0l 

0, 

1,60000 

\ 

F 

T 

39 

, 72b99fc-0 1 

,b2 7 4 7E-o 1 

0. 

1,60000 

T 

F 

T 

u 0 

,6770bfc-0 1 

,bbS9 1 L-u 1 

0, 

1 ,80000 

T 

F 

T 

4 1 

,63262t-0 1 

,b43rt7t-01 

0 , 

1 ,80000 

7 

F 

7 

42 

,Sbb3bt-«n 

, b4 1 62t-o 1 

0 • 

1,80000 

T 

F 

T 

u3 

,bl 767t-0 1 

,48 1 6 1 - 0 1 

0, 

1 ,80000 

T 

F 

T 

<i u 

, 446b6t -U 1 

, 3 9 h 0 3 e • 0 1 

0 • 

1 ,80000 

T 

F 

T 

4b 

, 39 7b2L-0 1 

, 3b394E 1 

0 • 

1,80000 

T 

F 

T 

4<J 

, 366b( E -0 1 

,310b7t-01 

0, 

1,80000 

T 

F 

T 

4 7 

, 36632E-0 1 

,2/62oE-‘''l 

0. 

1,80000 

T 

F 

T 

4d 

, 4 0 2 3 1 1 “ 0 1 

,2b9HbE -0 1 

0 1 

1 ,80u00 

T 

F 

T 

49 

, 34296E-0 1 

,25('6 2E - 0 1 

0 • 

S ,80000 

T 

F 

T 

bo 

,29l0bt-0l 

, 2 0 4 b u E - 

0. 

1 ,80000 

T 

F 

T 

bl 

, 30927t-0 1 

, 1 9 3 4 6 t - 0 1 

0, 

1,80000 

1 

F 

T 

b2 

,291 l4t-0 1 

, 1 7 b 4 7 1 - 0 1 

0 • 

1,80001' 

T 

F 

7 

b3 

,2b0a9t-0 1 

, 1 b 1 7bt -0 1 

0, 

1 ,80000 

1 

F 

T 

b4 

,2 S32U-01 

,14b6bE-0l 

0, 

1 ,600u0 

r 

F 

T 

bb 

. lH202E-i>l 

, 1 4 1 0 9 £ - 0 1 

0 « 

1,80000 

T 

F 

T 

bb 

, 1 2b49t-01 

, 1 3 4 2 4 £ - 0 1 

0, 

1 ,60000 

7 

F 

7 

b7 

.691 49L-02 

. 1 30 12K-^'l 

0. 

1 , 80000 

T 

F 

T 

bb 

,b iOObb-02 

, 1 1 6 b 1 E - 0 1 

0 , 

1 ,80000 

T 

F 

7 

b9 

, 4 37 7 4t -0 2 

,98302E-02 

0, 

1 , 80000 

T 

F 

T 


,*300000 0 0 Of- I'vHu^'iubtNtbUb UnM 


0 0 

, 3S444E-01 

, 3 4 4 6 0 1 - 0 1 

0, 

1,80000 

T 

f 

T 

b 1 

,29b/ 3E-0 1 

, 3 1 4 Hbt - 1 

0 , 

1 , H 0 0 0 0 

7 

F 

T 

b2 

.23192E-01 

,2/6b9t-01 

0, 

1 , 80000 

7 

F 

T 

b3 

, 1 79b4L'-0 1 

,24 0 7 3E -0 1 

0. 

1 , 8000 0 

T 

F 

T 

64 

, 1 4bbat-t> 1 

,2o2blt-ol 

0, 

1 , 80000 

T 

F 

7 

bb 

,22'i94h-01 

, 2b6S2E -01 

0, 

1 , 8 0 0 U 

1 

F 

1 

bb 

,21 604t-y 1 

, 3 1 1 9 3t-u 1 

0, 

1,80000 

I 

F 

7 

67 

. lb 38it-0 1 

,2b23bf- -0 1 

0 . 

1 ,80000 

r 

F 

7 

b6 

, 10646E-" 1 

, -'1 1 

0. 

1 , 8 0 OO 0 

T 

F 

7 

b9 

, 1 Obb3E -0 1 

,1 *i3obE-ol 

0 • 

1 ,800 0 u 

T 

F 

T 


, 1 03/bt- ) 1 

, 1 3 1" 0 b F - 0 1 

0. 

1,80000 

T 

F 

T 

7 1 

, 101 7bt-0l 

, 1 0 b 1 b E - 0 1 

0. 

1,60000 

1 

F 

T 

72 

, l0O8bt-0 1 

,99y3bF-u2 

0. 

1 ,80000 

7 

F 

T 

73 

,9H034t -02 

,9 5^ 7 3E-02 

0, 

1,60000 

T 

F 

T 
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liUOuOuOOO OF’ I 'c-'JMuut '^t '-’i 'i> ItK'*' 


/4 

, W99 U 

-0 1 

, iS^bPt-0 1 

0, 

1 ,80000 

1 

T 

T 


, 3lbbOt 

-0 1 

,3331 7t-0 1 

0 , 

1 ,60000 

T 

7 

T 

f^3 


1 

, 9 4 9 9 ► - 11 

n j 

1 , 8 0 0 0 (1 

T 

1 

T 

/ i 

, 1 rt7i4t 

-0 1 

,d^l^di -U 1 

0 , 

1 , b u 0 0 0 

r 

r 

T 


, 1 b<e<?Sh 

-0 1 

, f* 1 Hb4t - It 1 


1 , b 0 0 0 

T 

1 

T 


♦ i:'H9«ut 

-0 1 


0 , 

1 , H 0 0 U U 

T 

T 

T 

0 0 

, ib 1 b it 

-U 1 

, 39 / uht -n 1 

0 , 

1 , 80000 

r 

1 

T 

e 1 

, S J90 ?L-!i 1 

, tj 1 1 H / ij £ “ lJ 1 

0 , 

1 , 8u00 0 

T 

T 

T 


, £?1 3 iut 

0 1 

, 3 r‘ 1) b b E " l1 1 

0, 

1 , bu 000 

T 

1 

T 

o i 

, 1 3M99t 

; 1 

, 1 h ^ 9 1 - n 1 

ll • 

1,60000 

T 

1 

T 

<i -4 

. 1 5 1 1 

11 1 

, 1 b / 1 -u 1 

n , 

1 ,bvj Ou 0 

r 

1 

T 

0*3 

. I 1 <f9 

U 1 

• 1 

i' , 

1 ,6000ft 

T 

I 

T 

0 

, I 1 u Ubt 

U 1 

, 1 ^ 9 1 a K - [] 1 

0 , 

1 ,60000 

I 

7 

T 

H f 

. 1 U 7 3 7 1 

0 t 

,1 1 H£»9f- - U 1 

'1. 

1,80000 

T 

T 

T 

Hfl 

, 1 1) 3 Mo^ 

U 1 

, 1 I u 1 ht-0 1 

0 , 

1,80000 

T 

I 

T 

t\H 

, 9 b S U n t 

u^ 

.9 7 /c’Mfc-Od 


1 ,80000 

T 

7 

T 


, bbOU4t 


,dbc?o3H 

0 . 

1,60000 

f 

I 

T 

1 

, 73u 1 3t 


,bi 1 7 U -Oc! 

0 , 

1,80000 

T 

7 

T 


, 094^UL 

u^ 

, 7 7 4 9 3 K - u «: 

0 , 

1 ,80000 

7 

r 

T 

9 J 

, bbdi /t 

\)d 

■ 731 7ot“Oi? 

0 ■ 

1 ,60000 

T 

T 

T 


.b/iOlt 

Od 

, 009i! 1 t-U^ 

0 , 

1 .80000 

T 

7 

T 

9*3 

,63o0 3t 

yJd 

,0047 it 

0 , 

1 ,80000 

7 

T 

T 

90 

,b9bl5t 


, b4b09£ -02 

0 , 

1 ,60000 

T 

7 

T 

9 ; 

,5595U 

<}d 

, 48809 1-0^ 

0 , 

1 ,80 000 

7 

7 

T 

90 

,9S0bttt 

Od 

, 4 iiJOftE -02 

0 . 

1,80000 

T 

7 

T 

99 

, 3a3/Ot 

\)d 

, 384b4t-02 

0. 

1,60000 

T 

T 

T 

1 01 ) 

,^71^bt 

u? 

, 3Sb2ot-02 


1,80000 

T 

1 

T 

1 ul 

,db?bit 


,32/nu-o2 

0, 

1,80000 

T 

T 

T 

JO^ 

,<>bS7bt 


,3r*0b4t-0 2 

0 , 

1 ,80000 

T 

I 

T 

loi 

,f?9b9^t 

od 

,2 /Ibttt-f'^ 

0 • 

1 , 80000 

1 

r 

T 

1 ou 

,t?3d39t 

0? 

,2i9bbE -02 

0 . 

1,80000 

T 

T 

T 

h'S 

,^^07bt 

0<? 

, d \ 049fc -02 

0 , 

1,80000 

T 

7 

T 

1 Ob 

tdOb'^n 

Od 

, 18u9'3t-o2 

0 . 

1 ,80000 

T 

T 

T 

lu / 

, Ibbbbt 

Od 

, lbl9at-02 

0, 

1 ,80000 

T 

7 

T 

1 0 0 

, lbai^t 

Od 

, l277oE-02 

0 ( 

1 ,80000 

7 

1 

T 

1 0 9 

. I489^f. 

Od 

, n 4 3 h F - 0 2 

0 , 

1 ,80000 

T 

T 

T 

1 10 

,1^9^71-: 

\)d 

, 1 tibibf- - 02 

0 . 

1 ,60000 

7 

r 

T 

1 1 L 

, t 18 3 7K 

Od 

,99b;>9t-o5 

0 , 

1 ,60000 

T 

T 

T 

Hi 

, 105b7fc 

Od 

,932o3K-u3 

0 . 

1 ,80000 

T 

7 

T 

i 1 i 

, 9Ub^4t 

03 

,6rtl 27t-03 

0. 

1 ,60000 

T 

T 

T 

1 1 M 

,H|>9l‘3t 

0 3 

,H 7u24€ -.13 

0, 

1 ,80000 

7 

T 

T 

1 

, b 7 7b4t 

ui 

,6bbobt-03 

0 , 

1 , BOOUO 

7 

T 

T 

1 lb 

.b/bOlE 

0 3 

,biu4bt-03 

0, 

1 ,80000 

T 

7 

T 

1 1 / 

.biia^t 

03 

,bl90ut-0i 

0 , 

1 ,80000 

T 

7 

T 

1 lb 

,b^ 3b9£ 

0 i 

, 7 7bboE-oi 

0, 

1 ,80000 

1 

1 

T 

119 

,b7bait 

0 i 

. 7} 3 77t-03 

0, 

1 ,80000 

T 

T 

T 

lt?0 

, 7<?383t 

03 

,62i44f-0i 

0 • 

1,80000 

T 

T 

T 

l^l 

,73^8ut 

oi 

,bl7bbt-03 

0, 

1 ,80000 

T 

T 

T 


, 7^bt41 1 

0 3 

,406 7bt-0i 

0. 

1,80000 

T 

T 

T 

Ui 

,00/1 5t 

0 3 

,u2344t-0i 

0 • 

1 ,80000 

T 

T 

T 

U9 

, 01 40bt 

03 

,4121 7t-0 3 

0 , 

1 ,60000 

T 

T 

T 

l?b 

.b34/0C 

03 

, 3941 3E-03 

0. 

1 ,80000 

T 

T 

T 

1 

,49l50t 

03 

, 398 Ibt -u S 

0 , 

1 ,80000 

T 

T 

T 

le*; 

,4l9^St 

03 

,374b7E-Oi 

0 . 

1 ,80000 

T 

T 

T 

l^'b 

,33^b3fc 

0 3 

,3loo3f-oi 

0 • 

1 ,80000 

T 

I 

T 

U9 

,dob4?7t 

0 3 

,24i4bt-o3 

0, 

1 ,60000 

T 

T 

T 

1 i J 

,^1^9ot 

03 

. 1 7402t-03 

0, 

1 ,80000 

r 

r 

T 

1-i 1 

, 1 72<!4t 

0 3 

• 1 bbbbfc - 0 3 

0 • 

1 ,80000 

T 

T 

T 

1 a 

, la378t 

03 

, lb43U -o3 

0 • 

1 ,80000 

7 

T 

T 

1 ii 

, 1 31b4t 

03 

, 1624 /t-U3 

0. 

1 ,60000 

1 

T 

T 

1 i9 

,1 I7bbt 

03 

, 1 7221E-03 

0, 

1 ,60000 

T 

T 

T 

15*3 

, 9b7bbt 

uu 

, 1 o749fc -0 3 

0. 

1 ,60000 

T 

T 

T 

1 5o 

, 799aMt 

04 

, 1 bl Obf -03 

0, 

1,80000 

7 

T 

T 

lir 

,bS 7 7 7t 

04 

, 12631 1-03 

0, 

1 ,80000 

T 

T 

T 

13d 

,bl9bbt 

04 

,1049lJt-o5 

0, 

1 ,60000 

T 

T 

T 

139 

,47o79t 

04 

, b4b9ut-04 

0* 

1 ,60000 

T 

7 

T 
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Ttsi ( Abfc - hiuj T -f- i r r t u cuuf'uixATt StbTtn 

Ui'urilt ^ AKMA-J- MEM- iz aMEU1LS» 


HUiMb UN t ALH 


f-lNAt yALkJtb 


1 r t A T 1 ' i -I L^f<yfMwfcS, 

l.iTUu lU-<ATi'f- a; , l‘<‘^Uj?t + Ul Y| ,M«bOt 4 WO *T UtWAlt » 1 

lU^AiluN inhOh Xi rj ,>ia^ 90 t. -Oa Aj IThHAte » 

"'AXMu^ nt*^AllUN X| i« 3U/J» lb 

M I« 21 J» 1« 


*******«***«««*************•*«*«• a-awhay ***«**••**•*********»*»***•*****••*•**••••< 

Ja I 

.bOOlbEtOO ,tt^/77Bfc+i-u ,bii7G6ttJU .BuaSQfctOu ,800«ut*00 ,7b2lbt^00 ,7b«blfc + 00 ,7?M7t^Ou .bbbttlttOO , 
,b^U77t*00 ,to040 iet0u ,-,Q2h ,'f .b^ibJti-iJO .beuibt + jn ,bb857tfno ,bbft»5lt + 00 *s«<<iaE + O0 ,bi221t^&0 , 
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,6i 722tYOO ,ol4ttd£+iU ,bhbUl£ + Ju ,b7bl«t + 00 ,b6i30EfCO ,bbl07t*lJO .sibTSE^OO ,b26b2t^00 i 
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,h449bk*0J .b2163£+iJU ,ou23bf^ou ,bbb73t+uO ,b7292£^g0 .bbSbbttOg ,54b46t4U0 ,si330tf00 , 520221^00 

,494i9tfJ0 ,abb27k4in ,4939U*0U + , 3570 7£t00 ,27b09tt00 .ibbbbEtOO ,3b748E-0l- 
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,b2349ht00 ,-4M22t + u':^ .bgaSbktOu , 792 7 7t + UG ,77b81t4JO ,7bb34tAU0 . 73193E + 00 ,7u«9bbA00 
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,b4b73£+00 ,5b04it40C ,b7S4Uf>uO ,b909bt+dJ ,b0726t400 ,b2484ftyu ,b4433E400 ,68b29E^OO ,b9049t40n 
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Jm a 

,9^bOVfcfOO ,»Jlb97t»00 ,9o57bt^00 ,66tb7i*00 
,6tt910t + 00 ♦b‘)!>7i*t + no ,b2259t + uU ,5e96btfOU 

,3‘4i<4«f + Oo ,^9b*)9t + 0C( ,^«^a9t*00 ,l«075t + OU 
-,abb66fctOO-,ii<ilbt400»,^9a9ifc^gO«,6^9S9tfOO' 
•, 19ibdfctg0»,«09bifc»0 1 ,^bi97f-01 ,129«9t4UU 
,b9J9ifcfOO ,577aittOU ,bn9bE*00 ,ba<457fc^00 
,89/55E400 ,d70976^00 ,89039fc4y0 ,90b79tt00 
J* 9 

,9be5JE#00 ,9779bfct00 ,9b2buE^oo ,9<433«t^O0 
,7lMUtO() ,b7/^9t^0u ,b3/‘*«t>00 ,59b9gE400 
,^77 78EtOO ,^l89i£♦00 ,iS379|r+00 ,aig7bt«0l 
-,b‘>l3Bfc + 00»,6l9^afctou»,b683Ot^0O-,b9b9«ttO0« 
-•<?9 3<»9EtU0-,lb3a9e^00-,7bbbdt-gl .27S57E-01 
,b3ll9EtOO ,57907fc4-00 ,b^3b7k♦u0 ,66b69tt00 
,9ObU0Et0 0 ,9i0iit^0 0 ,9!5lbOttyO ,9b93!}tt00 
J> 1 0 

,107b9t + Jl ,lc)b3Hf + ')l ,lua6at*oi ,l0^aifctoi 
,7b0b'3t400 ,71igit*00 ,bbi99fctoo ,bl3hHfctOU 
,.^07 3at♦0u ,13b90t*'j0 ,btf ia5e-01-,^u736fc.gi- 
-,b5•5^‘^t♦00-,7l;y^F♦llU•,7b^<»Uh♦OU•,7«7^bt♦00« 
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,bWibfc400 ,‘579iit^0U ,b37ult.400 ,b9gqbt400 
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,a232yt+00 ,7b523tt0u ,70a69tt00 ,b«23Stt00 
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,90ttl7t4gO ,bi703t4j0 ,7b2Sot^0g ,b«979fc40u 
,b397bt*Ul»,«9bbot«ol-,15‘5bUE4Uy-,2b372fc4uy- 
-,99^3b2t400-,lU09bt401-,109b2t401-,l 0692E40 J - 
•,b9729EtUO-,5Bblih4jO-,a6S«et400-,39250E400- 
,‘*77 7ifcfOO ,57bl2h40u ,bbb90t40O ,7SblOt400 
,l2U4t40l ,12'53U4 o 1 .12B8JE4UI ,13lbattOl 
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,lb972t4i>l ,lb293fc40l ,15»'27h4yl ,|Ub77t40l 
,]0190E + U1 ,9ila^fctOO ,Bi92b£tu«> .74278E400 
• ,3buibfc«01«,l*>7b2k40U-,2b20bt4gu*,40b7bt4 0y. 
-,114b7E40l»,l2u72Et01»,l2499b4Ul-,12733t4Ul- 
-,tt892bfc + UU*. 7 7u54t + 0U-,b424St4U0»,b07bU400- 
,44B43t4U0 ,b7U02EtOU «bb^6bE+O0 ,795041400 
,l3b9bk4ui ,l42i9t401 ,l4bbuE401 ,l50l7fc4ni 
Jc 14 

,l79b4E4yi ,177b4t40l ,17457E4yi ,l7Uu5t4in 
,Hb02h40l ,l0b2lfc401 ,9i8U5E4UU ,biau4E40y 

-,liblat400^,2H257t4()0*,u2b94t400*,57 39 7E4JO- 
•, I395b£40l-, l4bu2E40l-,l505bk4ul.,|530b£40l- 
1 1245t 40 1 •,99b2ut^OO-,B5b20k40U-, 70700 k 400- 
.«Ubb2fc400 ,55759h400 , 70050k.400 ,B3bb7t400 
,15b20fc401 ,lb28bfc401 ,lba5ut40'l ,l 7309t40l 
J* 15 

,2ly5bb401 ,?0bi5fc4iH ,204Blt4ul ,l999bt40l 
,li3bbE40l ,12035E40l ,lOb24t40l ,9l44Ot400 
-,25a4bttOO-,4293bt4OU-,bO2b0E4i)O-,772biK4OO- 
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J4luJt4ul-,12/29t4ul-,l I 1 7ht40l-,95055t4O0- 
,55ibbb400 ,53505t400 , 7 l05U4yO ,87894E400 
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,ebb97b4u0 ,d9l99t400 ,»l5Ut^00 
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• 2U45b4U0 ,26713E400 ,3524»t^U0 
,67bl2t400 .70691C400 ,73707fe400 
,9l928t4U0 ,927551400 ,93Ubk400 

,9l97«b400 ,a9252t400 ,06199E4OO 
.55593E400 ,5l42at40Q ,471b2E4yO 
, 14449fO2-,0bl 1U-0 1-, laOOU400• 
•,700b7L400-,b6J97E400-,64026E400• 
,l233lE400 ,2I0«5E400 ,2d06aE4UO 
,7054bt400 ,74349h400 ,77972t400 
,962blE4yo ,991316400 ,99523fc400 

,997076400 ,9657bk400 ,93059fc400 
,5b207k400 ,S0903t400 ,45425t400 
M3ulfc400-, 2 05896 400-, 30l76t400• 
',79125E400-,7735bE400-,73abOt400- 
,2357bt-ul ,122356400 ,214466400 
,741b4E400 ,789286400 ,834046400 
,107006401 ,107966401 ,108386401 

.110316401 .106676401 ,102566401 
,577666400 ,510736400 ,441376400 
•, 2360 06 4 0 0-, 335686400-, 43560640 0- 
•,9130064UO-,a95a76400-,85a45e400- 
-,884276-01 ,226396-01 ,129276400 
,785636400 ,845856400 ,901936400 
,118666401 ,119786401 ,120296401 

,124356401 .120076401 ,115206401 
,604006400 ,520196400 ,433326400 
-,37297E4U0-,4819lE4U0-,5b8696400- 
107296401. ,10 55 36401-,! 018 36 401- 
■,216956400-, 920 596-01 ,306086-01 
,857796400 ,919026400 ,969796400 
,133766401 ,135166401 ,135626401 

,142456401 ,137356401 ,131536401 
,642256400 ,537906400 ,429886400 
■,53058t400-,65lb86400-,7687bt400- 
■,l27bb640l-,l2593640l-,122|5640l- 
-,368506 400-, 2274 1 6 400-, 863566-01 
,897966400 ,994236400 ,108376401 
,152876401 ,154686401 ,155606401 

.165326401 ,159226401 ,152216401 

,693746400 ,564366400 ,430746400 
,7l604E400-,85i936400-,98407t400- 
, 153436401-, 151 646 40I-, 147706 ♦01• 
,55i046400-,390686400-•226106400- 
,965536400 ,108666401 ,119956401 
,176606401 ,179036401 ,180346401 

,1*^3846401 , 186516401 , 170026401 
,760096400 ,600226400 ,435496400 
,937516400-, 109536401-, 124396401* 

, I 85586 40 I -, 1837 16401-, 1 79536401- 
, 7 74U9fc 4 0 0-, 590696 ♦00-, 9 02696400- 
,103996401 ,119106*01 ,133306*01 
,205706*01 ,206986*01 ,210666*01 


•7ft5S2Ei00 •75464t*00 •722a3Ct00 
,456266*00 ,42300E*00 .305UC900 
, 166766* 00*, 27 14Si*U0»«37Si3e*00 
,$OOl6E*00*,41036C*00««309«6t400 
,406936*00 •4562«E*00 .^OimbOO 
•766521*00 •7950«E*00 «62222CtOO 
•930966*00 ,92609E*00 

,820866*00 ,793106*00 ,75574E^00 
,427436*00 ,360996*00 ,331446*00 
•2? 7766*00-, 3 75586 *00- ,46654Et00 
,57 7 056 *00*, 495206*00*, 390696 *00 
•359166*00 ,422256*00 ,479246*00 
,814276*00 ,646956*00 ,677466*00 
,994316*00 ,966536*00 

,8'’2036*00 ,650546*00 ,80661Ef00 
,3'9729E*00 ,337606*00 ,27452Et00 
,3’®136*00*,49 i 756*00*,578766*00 
, 675696 *00-, 599166*0 0*,50625E*00 
•299676*00 ,376206*00 ,450556900 
,875946*00 ,919676*00 ,95063Et00 
•l062bE*01 ,107596*01 

•980276*00 ,931126*00 ,676656^00 
.369306*00 .294176*00 ,215566*00 
,533406*00-. 626246*00*, 71 1006900 
,aO105E*OO-, 727966*00* ,639376*00 
,230576*00 ,326126*00 ,415666*00 
,953066*00 ,100166*01 ,104506*01 
,120166*01 ,119406*01 

,109606*01 ,105906*01 ,975616*00 
,343306*00 ,250026*00 ,153426*00 
•b91 076*00-, 766526*00*,672336*00 
,962l4t*OO-,068436*OO*,79926E*OO 
,149706*00 . 264266*00 ,37373E*00 
,105016*01 ,110976*01 ,116366*01 
,135736*01 ,134696*01 

,125036*01 ,117696*01 ,110176*01 
•310366*00 ,203526*00 •056146*O1 
•0790 76*00-, 9b04 36 *00*, 107046*01 

• 1 16416*01-, 106646*0 1*,9960 16 *00 
•S297b6-01 ,169226*00 ,321306*00 
.116626*01 .124156*01 ,130936*01 
,155616*01 ,154726*01 

•149326*01 ,135636*01 ,126176*01 
,293316*00 ,152616*00 ,919766«02 
•1 10596*01-, 12165E*U1*,13139E*01 
. 141606*01-, 133696*01-, 123666*01 
•652796-01 ,960596-06 ,254446*00 
•130396*01 ,139936*01 ,146546*01 
,100556*01 ,179646*01 

•166426*01 ,157796*01 ,146196*01 
,200T56*OO ,996076-01*, 792736*01 
•1361 16 *01 *,150466*01 -,161266*01 

• 1 73066 *01*, 169486*01*, l5i86E*0t 
,212306*00*, 215796*01 ,167636*00 
•14647C*01 ,156576*01 •l99fSl*0| 
•211416*01 ,210566*01 



118 


J* le 

,2«b5itf0l ,2«6lutfOl ,23a3«>Et0l ,22‘#07t + 0i 

,l^bS«t^Ol ,l3V0bt^0l ,12l£>bt + 01 ,IQ337ttOl ,«a320t+00 

• ,3‘i^3 7t4QOi»,bO49ittOO-,rtl0‘73t + ^>0-,i0ll^t^0l-,l2OaSt + lil- 

• , 20 « 0 bfc.^ 0 l», 2 le>n‘ 5 t^ 0 l«, 221 bbf + 01 -, 224 fl 0 t. + 0 i-, 22 b 4 ltt 0 l» 

I / 7 0 7tt01-, Ul35t^t)l-, 1 459it + U 1-, 12^04F^01-, lO4V2t + 0l- 
,277iat + UU ,497191 ^Au ,7Mt>bttOU ,9ia79EtOU ,11175t>0l 
,2Ut>74b + 01 ,21771F^')1 ,227l2tt0l ,2344oe+OJ ,24103t^01 
J« 17 

,29aeut + yi ,292iifc + v>l ,2a7bbt + Lil ,2b09bt + Ul ,27227b»oi 
,ltt235fct01 ,lb20bttvn ,14f^baE^ul ,ll 798bt01 ,9aa90ttyO 

-,bbbOUtOO-,8l74«k+OU-,10tj3i6.tOl-,l30l2t + Ol*,lb2«bt + 01- 

-,2b«aih^0 1-,2b5‘>bFtoi-,2700 )t40l-,2 73b9EtUl-,27ab3t + 01- 

-,22l0bttOl-.2u337f+ul-,lH5obt+01-,lb2l3t+0l-,l390bt*01- 

,l7llat + 00 ,43b63E*UU ,&97b7fc+Ji> ,9blb7ttUU ,llVbbfc*01 
,24904tt0l ,2b3l3E^ol ,^bS29t+01 ,27babt>0l ,2ft3bBb+01 
J» lb 

,ibU99e + Jl ,3ubuiK>ul ,3M3lbt+ul , 3 3S3bL tOi ,32497EfOl 

,2149ottJi ,l«992t^v)l ,lb34<tttyi .libbbfc^Ol ,lObb7b + Ul 

• ,7 7bb3t + Ji'-.107«ottul-, l372lfc4Ul-,lbbS2t4(M-,l924ott0l- 

-,3ll2Mt+tM-*32lb4fful-,i2939h+Ol-,33577e+01-.33493E^ol- 
-,2 7b34t + 0 l-,2bb29t t0l-,2i<?82t-f‘0l-,20blbt + 0 1-, Iblbbt + Ol- 

,2ib7at-0l ,34 399t + U<j ,bb034fctuo ,9 7029fc*0u ,127l3t + Jl 
,27o7ut^Ol ,29.47bfc+0l ,il047t+Ul ,i2374h^01 ,3iu«7E + 01 
Ja 19 

t4lH72t^0l ,4lb2bt^ul ,‘4l042fe+lJl ,40l29tt0l ,36tt94fe + Ul 

,2b43lf+Jl ,22i43F4-oi , 19073E+01 ,lbb4bl>0l ,l2o8bE + 01 

",l037lt + ai-,14Ut0t^01-,l7b34fctUl-,209l2ttyi-,24U3t + Ol« 

-,380HbE+Jl-*i9iilfctvM-,4022lttul-,40749F+oi-,40907t^Ol« 
-,3423bt + 0l-,3l9blE+i>i-,2937‘^fc4‘01«,2fabuSF+ni-,23474t^0l* 
-, 1 7998E^00 ,204 79t + u0 ,bb737fc>JO ,9b4a9ftOO ,l 3339t' + 01 

,32012E4-0 1 , 34323k+01 ,Sb3b0t^ul ,38078t + Ol ,39«9afc + 01 

Ja 20 

,50og0tt0l ,49/b7t+0l ,y91q9t + 0l 44«09U^0l ,4bb24t + Ul 

,3Uli2t+01 ,26322hf0l ,22287E+0l ,l80b2t+ul ,l3bb3E*01 

-,l3ba3E401-,lbOb2tt0l-,222«7L*0l-,26 322k + 0 I - , 30 I 32fc ♦ 0 1 * 
-,at>b2*4t ♦0l-,4MO9i£ + 0 I - , u9 I49t + Ul-,u9787ttOl-,SOOOOE + Ol« 
•,42blU+dl-*399olt + 0l-,3b9b<ih + ul",i5b8bEf01-ii0l 32E4 0 1 * 
-,Mbl54E ♦00-,80«bb£-l 3 ,4bl3‘*ttoo ,9187bLtOO ,l3bb3t>0l 
,3645ut + Jl ,J990ie4()i ,4^5ilk4iM ,qa?bbt + ')l ,a6o2at4Ul 

HKHtltn***********************^*** Y*AKfi4r 

Ja I 

-,lo2abt40U»,lb2b3t + 00»,lo2blt40U-,lbl99t + oO»,lbiJbbk440< 

-,b972bt-0l-,b4il9E*in-,427bSt-ol-,3b332t*Ol»,58u41t»01< 
-,llb9bk»Ul»,3l(JOOt-o4-,lu020t*0 2-,2 7bOut-'02-,bbb20t-02< 
-,bub24t-0l-,4SS92l-ul-.33734t-ul-,lbb2bF-0l ,382oot-02 

,o4ib2t-0l ,4/49bt-0l ,2M2b2t-ul , 1 1299t-0l ,b8u9^'£-02 

• ,2b029t-01-,298o7t-ol-,538b2t->.M-,ift77ot-ul-,5b<ialt-ul' 

• ,ttilb8t»Jl«,lO‘4u7t + UU*,12bC-iF+(.iU-,1455bK + 0o-,lbbbbt + 00' 

Ja 2 

-*lb3iilfct!jn»,lbb23f + 00-, lbbb9F+o'J»,lb73bt + UO-,lbb91t>UC' 
-,9b30bt-ol-*b4992t-iil«,/42/8t-Ol»,bb34bt-')i-,bo970t»Ol 
-,34 0bbE-jl-.5tjo2 4F-0l-,29b9bk-0l-,2979U»Jl-,3l 52bt-Ol 

• ,b/a 9 /£-oi»,b‘(OUiF»(?i-, 4 b 49 afc-ol“, 22438 F*ni ,b 74 b 7 t »02 

,b«8b4F*0l ,7u721t-OJ ,b39/3t-('l ,5«l09K-ul ,2blo7t-al 

-,47u79t-Q2-,94«9^t-02-,lib2ttt-0l-, I b 7 3bt - (M - , 1 9 0 7 OE -0 I 
-,72b70t-0l».9227lk-ul-,ltlbiE-*-0r.-,l<>9bbt + nu»,l4 389E tuO 


,2202ifct0l ,20993Et0l 
,b4bl OE^OO a 943b8t^00 
a I5878t+0l-, lbb90t^0l» 
,2234bEl-01-a2l89bE^Ol» 
,83b29E400-,b2OlbLt0O- 
, I30b4t + 0 J a I4a4it401 
,24ba7Et01 ,2482U>01 

,2blb2Et0l ,249l0t+0l 
a70239E^00 ,tt5377t*00 
I74i3ht0l-a l9429Et0l* 
',272b0Et0l»-,2b76lE + 0l- 
1 l4b9EtOl-,B93l3t+00* 
,14iiutfOl ,lbb30EtOl 
,289bOEtOl ,29349k^0l 

,3l212t+0i ,29b92t^0l 
,7b8b7tt00 ,46377EtOO 
►,2l 7 78EtOl-,24n9E♦Ol• 
-,33^84E♦Ol-, 527b0t+0l- 
«, lb3ibE^0 l-a I237bt + 01- 
albblOt^Ol ,l837ltt01 
,342bOE^Ol ,34ttO8E+0l 

,3734bE+01 ,3b498tt0l 
•84249E«no ,469ulEt00 
*,27l09E + Ul-,2987U40l- 
•a 40b94t to l«,U011 I t^O i - 
•,2019bEt01-*lb740E+01» 
,lbb97rt0l ,203l8ttUl 
.aobbbEtoi ,ai3b2E*oi 

,447b8tt0l ,4^bllt*0l 
,9i875E+00 ,abl34t+U0- 
3 3b 0 bE+Ol-a 3b 9b Qt^Ol 
•,49707t+Ol-,49l49t+Ol 
-,2b322t+01-,22287E^0l 
, I80fc2t»oi ,22287t^Ul 
.4809U + 01 ,99149E^01 


•l9023t«O| aiab2lt^0i • 
,23b79tt00 ,2709U-01-a 
a l7l62t+0i»,ieb69t*0l*a 
,2U96EfOl«,2O255fc + 0l-a 
,5972bt^OO»,l7l9lE*00 . 
atbsose^oi •ieo33ttoi • 
,29923ki0l ,248b3t«0t 

.2188bEt01 , 

,2OO0OE^OO-,b4eoO£«Ol-a 
• 2l4?9 9E401»,22e72b^01-a 
,2b992Et0l-,2495U»0l-, 
,b3179t+00-,36bb9t400», 
,l86l3E^01 ,20b44E+0J , 
,2‘»524E + 01 ,294«4t*01 

,27947E*01 a2b989ttOl , 
, ib45lEtOO», Ib679tt00», 
a2b247t^0l-,26l37fc*0l-, 
a Slb98E^0l», $0 7 36tt0l-, 
,93092Et00-,blb47tt00-, 
•20^76E«01 ,234U5E4U1 , 
,lb08«tf0l ,35099t*01 

,l33b5t+0l ,309b3tt01 , 
,9l2l4E*01*«28 78bfe<»0 0*< 
,32372t^0l*,34bd9E*0l- 
a 59l63tt0l«,37eb9£*0l^ 
,l3l40E^0l-,9427bt^00* 
«23bb5E«01 .2b6i2Etg! 
,ul781t40l ,4i072EtOl 

,j990lttOl ,3b9b0E+01 
, 50b9bfc • 1 2-a 4b I 34 1 too* 
,59901tt01»,42bnt^0I- 
, q809lfc+ni-,ubb2at401» 
a l80b2£»Ul«,l3685E401» 
a2«>322tfOl ,30l32t*0l 
,a97ft7tf0l .bOOUOEtOl 


,lb 2 79 E 4 - 00 -,l 44 UlBt + UO-,i 24 l 7 EtOO»,lUbl 4 E^OO* 
,3b 7 7bE-0 I -a 338b2t -0 l-,29bb7t«0l-,2b029t-0 l- 
,8bu90E-U2-a ltt5'>lt-Ol-,?99bbt-Ol-,40790t-01• 
,2b43bE•Ol ,46b42t»Ul ,6t>lPU-0l ,7b299t-0l 
,30400t*02 ,l42bOE-O2-,3lOOOE-ti4-,Ub9 0t«Ol- 
- a 3b3 32E -0 1- , 3b369t-U 1 -a 39Bbbt-0l-, 49 7y Ot-0 1- 
lbV4 lKtOO«, lbl39E400-,ib204E4-00-,lb24St + 00 

-,lb523E+00-,lbb30E+00-,i4348E^OO», l2B99t*gO* 
•a bb bB it -0 l-,b2 4 bb E-0 I abg4 U»0l», 43 3b IE-01» 
-,3b3b3E*0l«,430b7E-0l • , 52229E -0 I b l 089t *U I - 
,ibllbt-01 ,bl22bt*01 .80742E-01 ,9lb4bt»0l 

,21/Obt-Ol ,l69b7L-0l ,|2b3bE*0l ,b872at-g2 

-,20 9b3E»0l-,24 1 lot-0 I- a 30b40E»0 l-,41 06bk*U !• 
lS22bt»0 0-a lb7b2E400», jb09bE>0 0-a IbiaittUO 


I 7g9bEt0i 
|64|7E«00 
l979Ut0l 
l9g6bEtOl 
b3ft27t*0l 
I942bt40l 


20133E^OI 
iUObEfOg 
2427bE^0l 
23bb0E40i 
97i07E*0l 
2231 lEtOl 


23834t^0I 
4677 lE + 00 
297b9t*0l 
2927bt»0l 
29723EtOO 
2b64lE^01 


203UEtOl 
665UU400 
ibbOObtOl 
3621 lEtOl 
bbSbiE^OO 
.2943SE401 


,3ib0bbtOl 

,91d7bt400 

»44/bttE«0i 

,447bet«01 

a9107bE«OO 

.33b6bEt01 


,a7b0bfc»0l 
, 19209E-01 
,4e4b3E«0l 
a 74b3U»0l 
a 19209E-01 
,6447dt-0 1 


a 1 l34UtOU 
.38bO5E*0l 
,b702bt»01 
•92bb6k*01 
a 7739it*03 
,b53b9t*0l 
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J» 3 

lt>46Wt^00-, 7aiikt0o-,l74a4fc^00-,17b0ut400* 

-.i^ib^ktoo-, loett^E♦oy-,9;ft3aE-ol•,0bb<^7k-ol.,tt 
-,^3 3l3t»01-,^0 793t-ui-,«9 76<?t-0 1- ,S015UE«Ol-,b^5J5t-Ul- 
74694t-0 1*,bbl5«!-0 1-,2 7S26€«0 1 , 7 75blE-0^ 
,10i93L400 ,9l07ie-Ol ,76V7^t-0l ,6^l80fc-01 ,b069^t-0l 
,13t*94t-Ol ,ia7a9k-u^-,399Ut«04-,3bj4U-Oi- 

-,b(it>7it*3l-,bO/7Slt-Ul-,995abE-01-,n 7^bt tOu-, 1 329«k*i)0- 
J» 4 

-,lofal‘5kfOO^,l/ 333L*Oo-,l74ii?L4uO-,lft39t)fctDO-,ldb9Ht^UO«» 
-• 144 1 3t + 001-, 13174 k♦00-,l^049L♦00-,^ 07b htOU-,102byt^0O- 
7004bfc-0l-,o93b7t-ul-, 7037bk-01-,73d90t-01- 
-,9994bt *0 l-,8bblbfc-Ol-,(>t,u^7t-01»,3e?y6U-0l ,9b70^)t»U^ 
,J^33ifEtOQ ,llio7t+0U ,99 7?6t-tl ,BS9l9t-ul , 74023E-01 
,3)8b4t-0l ,doW4E-0l ,^1171K-01 ,l64B3k-01 ,Ub33t-0l 
-,SJblut-LM-,bb8oifc-0l-,b73b0k-0l-,l0^>^^btt0U-,l^l64t♦00- 
J» b 

-,lo7bbt♦llt)-,17rtbbt♦uo-,l«773K + u(;•,l9b^l]fc♦uU-,^^^Ob^^t♦00- 
-♦l7obbt+0O-,lbb76ttuU-,l4745E+UU-,l57llt+OU*,l2604E^0C» 
-,9bd34t-Jl-,9io((b£-0 1 - ,9 3S9ifc'-0 l•,9b3^9K-ul•,9bb63e•0 1- 
U9b4E»L)0-,10b<^bt>0y-, 774b 9k -ul-, 36427 1 -01 ,12?b4t-0t 
,l4hb9E»yO ,13bb4ttyu ,W6/9k + 00 ,ll399t+00 ,10<»U9t + u0 

,b426it-0t ,4HliOF-01 ,42317k-0l ,36665t-01 ,30b4bk-01 

3bb63t-01-,b4b4bk-01 -, 7 54i9k-y l-,921b9fc-0 1-, I 1 OUk + 0 0- 
J» b 

-,l7oi3t»00-,lbb24t»0U-, 19bbyt4UO-,<i099bt4 0(J-,2ia9bk*U0- 
-,2u900ktyg-, 199 OOttOo-.lbbbUk^OO-, 1704 bt+OU-, 169 Olk^OO- 
1 3446F.f00-,13 33bk>-)O-,l3 393E+uO-,l3623kt0U-,l4016EfO0- 

-,149iik+00-,i2720ttO0-,905b7t-Ol-,4099gk-0l ,lb224t-01 

,lb3b9ttOo ,l7B2b£*yO ,l6bb4t^90 ,lbb9bt+00 ,14b2bE^0U 

,90bbMk-0l ,H3lbbt-ul ,7S9ilk-yl ,6662bt-0l ,b09bOE-ul 

-,lb39ok-ul-,i43o2t-0l-,b47b7l-0l-,7b502t-0l-,9blb0t-0l- 
J* 7 

-,l733ok+00-, 193H4fc+ou-,2l24be+UO-,22be0kfUO-,24276ktOO- 
2b 103tfOJ-,2S46lt + 0U-, 24694 k+0U-,23b70fc* 00-,23045ktu0- 
-,l9eibt+J0-, I97bbk+'>u-, 19661 k+00-,20 123k ♦00-,?0b I It^oO- 
-,lb6ibkf0O-,lb27at*OO-,i0476k+uO-,4b642k-uL ,lbebbE-ul 
,238 /ittOi) ,237o7k + dU «23llbE*U0 ,22l44t + uu ,2l02bt*u0 
.i4bb2h + dO ,l37u3k + 0u •1274lfc + u0 ,ll754tti)U ,l07ltt^U0 
, 1436 lt-01-, 74631 k-n2-, 406? bfc-ul-, 5462 3fc-0l-, 7942 Ok -Ul- 

j fi b 

-, 1 7 79a£tun-,2u bult + 00-,23<ilb£ ♦Ou-,2b30Ut + OJ-,27 32 lt*00- 
-,32bib£t00-, 327d9F+ou-,i24l«t+oU*,31999tfdO-,3lb08£+uO- 
2933 lt^0 0-,2933bt^oo*, 29 46 3F +O0-.2967bk + 0U-,29Ql2t + 00- 
-,227battiJO-,lbOUdt^i)o-,119b2F4-ou-,b0471fc-Ol , 2 5232k -0 I 
,3U15t*Uj ,3lbbott(JU ,3lbObk + UU ,3l22bFt00 , 5050 7k + uo 
,22b97E^i)0 ,2l600tt00 ,202?4k + 00 ,18ab7ttdU , 1 742bttO0 
,b47uiE-0l ,2b2l7k-dl , 1 b4b4k-03- , 29 l 2 7k-0 I - , 59 19bE-u 1 • 
Js 9 

lb429k + 00-,2l94bk + 0o.,2b27ot4U0-,2b3bU»0u-*illblt4u0- 
-,4l2H7t^(JO-,ai879t-»-(>O-,42242t^OU-,42419k^0u-,42462t^O0- 
-,42u/bF>OO-,42093F4-00-,421Obt4-0O-,42O47EtOO-,4i622E^OO- 
-,2 7lbbt ♦o0-,2u9ibtt00-, I 3623E ♦ uo- , bb 7 7 3E-0 1 , 2829 7k-ol 
,i95bbtt00 ,4l6U0kti)0 , u2b96EfU0 ,4278bt^ui> ,42370k>00 
., 3427fak + 00 ,32b24t4-00 , 30bb7k^oO ,2b7biE^00 , 26 7o2t + 00 
,l0«24fc+00 , 74bb7E-vJl ,39b23E-ol , 3366 3t 2- , 34 Ob 4 k - 0 I - 
J« 10 

-,19229t*00»,257b4t+OU-,2BlU7k+UO-,i22l0fc+OO-,56034ktOO- 
-,Sia38fc+00-,b32b2k + Ou-,b4444k + o(i-,bbiblk + 00-,b6 072k + UU- 
-,b7b24t*0O-,b74M2fc*Ou-,b7l36t+UO-,b649bk+0u-,5b447k^OU- 
-,31b72t*00-,2ul40e+d0-.l5494fc+0U-,62054k-Ol ,339b2E-01 
,4bbbattOO ,b24 74Etuu ,54b7U400 ,56226tf00 ,b6706t^00 
,49017E^00 ,4o7b7ht00 ,44536E+UU ,4172af*00 ,30937t^oO 
,l7bblt»00 ,155b2t^00 ,9i2«6E-Ul , 4523 3E-0 I 1 949 7t-02- 


. 1746 7k too* • 16969 k too- • 1606 re to 0 «« 1 4 a 99 t too* •i3b«2EtOQ 
. 760 1 6k«0 1 •. 70641 t*01*,6^969k»0 1-.61 11 0e*01*«S698)k»01 
• !>697 2k*01-,64ll4fc»01-,72i45k*0t-,7994ft*0|*«64«27e«01 
,a5221f-0l ,73066i-0l ,996976-01 ,10705kt00 ,|O90ietOO 
,42236k-0l ,35672k-01 ,30090t-0l ,24440k-0l ,l873lk»0l 
. 74226E-02-,12603fc-01-,20372t-Ol-,5l296t-Ol-,4b434t-Ol 
, 14406k too-, 1 5260k too-, 15946 k too-, 16469 E too 

,lb7b6kt00-, 16461tt00.,i 7637k too-, 166696 too-, 15664k too 
, 95 ;b6E-01-, 6903 36-0 I 0450 1 k-0 1 -, 79692e-01-, 75499k -Ol 
, 7 833bk-Ol-,6bl6 5t-01-,92647t-Ol-,99l77E-01 -,10246k too 
,5116bk-01 ,85033k-0l ,i0903kt00 ,12l05ktOO ,l2744kt00 
.64415E-01 ,56538k-01 ,«9754k-0l ,4l445k-01 ,37372k-0l 
,66526k -02 , lOO42E-O3-,06575k-O2-,2OO90k-Ol-,342B3k-Ol 
,l3b73EtOO-,la763ktOO-,|5766ktOO-,166l5ktOO 

,2O34 6Et00-,20306kt00-, j 99 I 3k ♦ 00- , 1 9 1 83k to 0- , 1 0 194fc tO 0 
, 12020Et0Q-, ll34tkt00-,i075lEt00-, 1 024 3k tQO- , 962656-0 1 
,104l6Et00-,ll06bkt00-,il734EtO0-, I 227 1 1 tO 0- , I 2450E 1 0 0 
,b979U-0l ,988006-01 ,i2630kt00 ,l4266ktOO , 14902kt00 
,91/466-01 ,826026-01 .74865k-0l ,676l2k-0l ,607566-01 
,2433Sk-0l ,164816-01 , 68773E-02-, 545256-02-, 19964E-01 
, 126 79E too-, l4l98ktU0-, i55666tOO-, l6765Et00 

,22523ktOO-,22835ktOO-,226Q3ktOO-,22tt35EtOO-,2l775EtOO 
, 160506 too-, 153026 too-, 14659k too-, 14126k too-, 1371 bktOO 
, 1454 OktOO-, 151 31 ttoo-, 15600 k too-, 1601 6 ktOO-, 156776 too 

,702206-01 , 1 1690kt00 ,i5U7ktOO ,l7263k^00 ,l6263EtOO 
,l3424kt00 ,l24l7ktu0 ,il495EtOO ,10636kt00 ,96299E-01 
,525406-01 ,420096-01 ,3l337E-0l ,176256-01 ,219226-02 
, I 1 6256 too-, 1354 46 400-, i534 76t00-, 1701 36 too 

.25381k400-,26l69k400-,p6622EtOO-,2674UtOO-,26552ktOO 
.22256640&-,2l540ktOO-,?0919t400-,204l2ktOO-,20039EtOO 
,2096«EtOO-,2l397ktOO-,2l64eE400-,2l492k400-,2061 IttOO 
,b23l6E-0l ,13855EtOO ,i8297kt00 ,2l376kt00 ,23l64ktOO 
,l98776t00 ,l67516t00 ,i7669kt00 ,16633E^00 ,l5634EtOO 
,957716-01 ,831376-01 ,688596-01 ,526836-01 .34504E-01 
, I0399tt00-, l2Bl06t(j0-, i5134kt00-, 17336k^00 

, 2904 7E 1 00-, 304536 tOU-,i 1 5256 too-, 322656400-, 3260 1 6400 
,30994k 40 0-, 30490k 400-, 300586 too-, 297026 too-, 29455E400 
,3P075f tOO-,3OOl76tOO-,295336tOO-,28350E4OO-,26l956tOO 
,960956-01 ,l63026to0 ,?l9686t00 ,263306400 ,293506400 
•291916400 ,279766400 ,?b720Et00 ,254506400 ,241776400 
.158546tOO ,141446400 ,i2266kt00 ,l02006t00 ,793416-01 
,895916-0 1-, I 198 36 4 0 0-, 14 9446 4 0 0-, 1 7 7986 1 00 

, 336906 4 00 -, 358096 40 0 -, 3/7 366 too-, 392466 4 00-.40420E too 
,4241 66 400-.42324E400-, 022216400* ,421 366 400-,42U84C400 
,4l29OE4OO-,4O275E4OO-,30563t4OO-, 35927E^00-,i2l65E400 
,111736400 .190286400 ,260156400 ,310476400 ,363746400 
.415216400 ,403746400 ,390256400 ,375376400 ,359406400 
,245136400 ,221636400 ,i963lE400 ,169016400 ,139656400 
,7207lt-0l-, U010E400-, 147676400-, I8429k40tf 

,3954 46 4 U0-, 42 7 1 46 4 0 0-, a55296400-,479826400-. 500006400 
.566l5E400-,5702l6400-,s7316E400-.575166400-,57623F400 
, 538366 4 0 0-, 5 1 4966 4 0 0-, 402556 4 0 0-, 4 39596 4 00-, 385066400 
•12947E40U ,220896400 ,304046400 ,370586400 ,440216400 
•564786400 ,556906400 ,544666400 ,529046400 ,510726400 
.359576400 ,327736400 ,291776400 ,257576400 ,219146400 
,4981 06 -01 -,978366-01-, 1455 16400-, 192291 400 
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Ja 1 1 

-,fc ♦'J<'-.d7dbiLi'ai - ♦uf -,7U0Tt + uo-, 7ifbe>Mt^0 0- 

-,7'^?00K♦J0-,7•^lf'Vtt.)u-,7al'^^t^U1J-,7?oHW^♦0u-,7U‘3^^lfc♦00• 
-,i7^00k+'i0-,<?7tf7it*0U-,l 7 7«'‘it+u-J-, 7003<if«Ol ,5‘797«t-01 

,b‘^Ubil: + ‘J0 ,6ai7dk ttn.' ,00^11^+'“' ,7l?^bL^uo ,7<fVitit + nn 
,b7l70EtUU ,t>au7bE+UU ,bl«ybE40U .bHlliF^UO ,S44B6t + U0 
,^o‘77utfOU ,<^l4‘^bE+0 0 ,lSHiBE + ijO ,^‘>9bat*ul» 

j« 1 e. 

•,<illl7K^00",^Hb'D4t^0o-,5^7H?Etuo»,U4p7u^k+')0»,U'#3b4t^v7U« 
-,<10*3 / Ot + J0«,«4 1 7«t^')u« , ♦U0-, 91) 02bF>^) ti-,9|f<?Vlt^yO- 

• ,9e3O74fcfl|J-,9‘j33bfc^OU-,93^,ubt + l'J-,9u890KtiJiJ-,B7 366t^0O- 
-, 43454 1' too-, idiVittr^g-.^Oyh^LfdV'-pBUb 29 k-ni ,Ub0ibt-01 

,7'J395fctOO ,77bi«ofc+OL' ,B3uS2F+Ut' ,B79ubkt<>0 ,9Ub2t*00 

,beB74t*0lj ,85abv)t>v)0 ,W2i01tfUU .7b2SlEtOU ,737«bt*yO 

,3bb5BfctO() ,316«bt + f^U ,244/SK^OO ,170blttOg ,9499 it -01 

Js li 

-,?l99^t + on-,il4b5k+‘)U-,4U^diF^dd-,a9b2lfc + <)d-,bttl99t + uO- 
-,99h0 3k4go-,ld455h + ul-,10M9ut^dl-,n265t^ul-,llS7»t^Ul- 
-,12uSlt^01-,nbSbe^0 1- ,ll5b7t + 01-,lU74ktul-,lOb70t^Ol» 

• ,bO9aoti>OU-,i7blbt*0U-,259ldt*0d-,949e5t-')l ,Slb52t-0l 

,b3 524fc400 ,92bl9F>0 0 ,lun46ttul ,lU6e7k+Pl ,nibOt + Ol 

,M452t + Ul ,ni3uktol ,U-7iSftOi .lil2biFt0 1 ,9 7236ti-y0 

,5i47afc + 00 ,44bb/E+00 ,ib591fcfiu ,2b24bti-nu ,l671Ut + 00 

Js 14 

-,22ol2t + OU-,34Sbbt+PO-,4bilt'b^oO-,b7b97t*OCi-,fe6b7ot+t>0- 
•,l22aHK+0l-,l290Uttin-,l3474t^ul-,139b7ttni-,l437bt+Ul' 
-,l4ttb3ttul-,l4b7gt + >>l-,14l54t^01-,l3b09t + 0l-,12929t + 0l' 

-,bglbLt+un*,445d5t+uo-,2a270t^uU-, ll44BEtO0 ,5b2u2t-01 
,9b29it*00 ,lu99bE+Ul ,12009t>01 ,12Bb4k^0l ,l3b5bfc*0l 

, 1447 /t^Ol ,l4l59ttol ,l3729t + ul ,l3l97t40l ,12*?7dt>Ul 

,72l2uti-00 .bllbaltoo , 49 7b^U+uu ,i»07bt + PO ,2bllbt^00 

J* 15 

-,227bit + 0l)-,3 7duut + o0-,b2bS2E:tdO-,b7 07 /t*uu-,bl02Ott00- 
-,l4494ttul-,lb«34ttul-,lbb72L>01-,l72CUtOl-,177l9t + Ol- 
-,lbl9ofc+Ul-,l7779fc+01-,l7214E+01-,lb492L+0l-,l5blOttUl- 
-,7l43ofct0 0-,52 99 7t*(JU-,3379/t^l*('-,14u6lt + 0U ,bbb7Sfc-0l 
,llS7 9t^ol ,li01bt + Ul , 14290 1 + 01 ,l5400fc^Ul ,lbA2itf0l 

,ia059t + 01 ,l77bbtfOl ,l7illEtul ,lb72btt01 ,lb0l2ti>0l 
,9:s47bt^U0 ,bl9ldt-»00 ,b7epHh + uu ,S32Ubfc+i>U ,3b332t>00 
Ja lb 

-,22H19F. + OU-,4 1>)5Sfc^OU-,59bHSE^<jO-, 7 7 6bttt + JU-,9b4 79t + 0 0- 
-,lb294e+ul-,l93bOt^ui-.20292t>dl-,2l084E+ni-.21/29fct01- 
-,22lblt*ul-,2161ClPtM-,2 0P7CiEf01-,l99 4lF>Ul-,l««2it + 01- 

-,b53l5E+00-,6i4bdt+0o-,au799£+go-,l7b00fc+P0 ,5ttb42t-0l 
,l3b3bt*0l ,l5397e+0l ,lb9bifc+0l ,lb379E+oi ,l957bt^U1 
,2232Ut*0l ,22057t+ul ,21bo7E^gl ,2o977t+0l ,2017«t*Ul 
,l24b7tt0l ,H)60bt + 01 ,9Pob3L^0U ,72b55Et-J0 ,b4l5it + U0 
Js I 7 

-,202b2t ♦Oy,4 3975t ♦ 0 0-,b7 337E ♦Ou-,90l7btt00»,ll2i4t*01- 
-,222b5ttOl-,23bU‘5p.tul-,24774t*01»,257bUttOl-,26‘>5btt01- 
-,269iuE+0l-,2b2l It+o l-,252b4t *0 l-,2a090k ♦O l-,22b94t+0 I' 
-,10240t^0l-,7baS2b-»-0U-,49b4U+Uti-,2225lt^0g ,5424bt-Ul 
,lo0b2Et0i ,lb2P‘3E>0l ,2ul57t + Ul ,2l901t+(<l ,2342lt*ul 

,27«l3fc^01 ,272i3t + '>l ,2b777k*01 ,26n«fc^0l ,25234t^0l 
,l611dt*Jt ,l4i)92t^ul ,ll9b3t + 0l ,9747ttt»U0 ,74b2bt^y0 


,ab79bt^OO-,5ll7bt^OO»,5bl79E^OO«,5d7b2fctOO"ibl99lttOO 
, 7374bt^00-, 7 4bb0fc + 0 0», 75325t + 00-, 7b732tt00», 7bd7oE^00 
,b 75b5t + 0O-,bibB5t + 0 0-,S»765fc + OU-,5272U*o0-,4552Ut + 00 
,149biF.40y ,2bSbbt40u ,jSb09f*00 ,4«527t + 00 ,b24l%t*0U 
,73b7bttOO ,73564t^00 ,72782tt00 ,7l308t^UO ,b9492EtOO 
,SO5«0ttOy ,ao395tt00 .ul^ibfctOO ,37206t*00 ,3221itf00 
,20575t-ni-,«iie3t-Ol-,i4i89ttO0-,2ol5iE+O0 

,5bbbOttlO*,6lb3«ttOO-,bbV82EtCO», 7l979E400-,765O9fc^00 
,94 122E ♦00-,95525fc ♦UO»,Qb48 7t40 0-,9o992t t00»t97 004t400 
,82tt9gE too-, 7 73 121 + 0 O-*7O504fc + (10 -,b2b77t4yu-,b3bOVt too 

,l72i9ttOU ,29549tton ,al<f^>U + 0O ,b2090tty0 ,bl857Et0g 
,9il5jttOO ,94U53LtuO ,9i970fct00 ,930l5EtOO ,9l20^EtOO 
,b8019ttOO ,6i494ttoO ,s7795Et00 ,Sl7«0t+OO ,45352EtOO 
,1840lF-01-,5a5bU-Ol-,l35iOftOO-,2m7ttOO 

,bbib0fctOO-, 74074bto0- , el^02t tOO-,079b2t^OO»,9«O60t too 
,llb20ttoi-,l2Oi4ttol-,j2l3attOi-,12l03ttui-,l2l57itOl 
, lOO40ttO l-,93U22ttOO-,043O0EtOO-, 743b2ttw0-,b3200tt00 
,l90O2ttOO ,34152tt00 ,47082ttOO ,b0803tt00 ,72b7bttOO 
,ll532fct01 ,ll 749ttol ,il039EtOl ,U0l4ttgi ,llb0lEtOl 
,9l228ttOO ,84b40EtOO ,7/54ltt00 ,69950ttU0 ibl9l4EtOO 
, 70492t-0 l-,?bb95t-0l-, i237 Jt400-,2l992fc400 

,79173b400-,e9l27L400-,q6a76t400-,l0718t*Ul-.llbl9E40l 
, I4b9 8k 40 I- , l4929t40l-,lS08 7ttUl-,lblUbEtui-, lbo39E tO I 
,12Ult40l-,lilb4E40l-,l 0U59t 1 0 l-,80 3i 1 1 4 o 0- * 7 4 7 92£ 1 00 
,22bb4tt00 ,3940btt00 ,sbbPiJfctOO ,70934btO0 *ttb^3bttOO 
,l408bfct01 ,l445bt40l ,i4b73tt0l ,l4743ttui ,l4b7bEt0l 
,liabbttoi ,ll061ttoi ,i0l93ttOi ,92b77ttoo ,b2621fct00 
, I 398 it too , 1 7bU9E-0 1-, j 0 466ttOg-,226l2ttOO 

,9439lttOO-,lU7lOttUl-, 1 l9O0ttOl-,l3O2bbtol-, HObbEtOl 
,lbl2Jkt0i-, I b399t tol-, 1 bbSlttO 1 -, Ittb ntto 1 -, 10452E tOl 
, lUbbbttOl-, l33b0ttOl-, l2Ol5EtOl-,lObl9fctOl-,0009bttOO 
,2b832tt00 ,4547btt00 ,b4b42ttOO ,02773ttOO ,99920ttOO 
,l7ub3t4Ui .UbWttoi ,|7900ttOl ,lbl02b*Ol ,l02O3CtOl 
,lbW9ttOl ,l423bttoi ,iil93bt0l ,120S7tt01 ,loa39Et01 
,23lb9fctOO ,78b29t-Ol-,74790E-01-,227blttOO 

, I l240EtOl-, l28blfctoi-, 1 Ui72tt0l-, lb792ttgi-, 1 7l02tt0l 
,2222oht0l-,22bblttul-,227l 7t 1 0 J - , 22 7 1 0 1 1 0 1 - , 22b2 7 1 1 0 I 
, I7bl9fe tOl-, Ib03btt0 1-, i4 382tt01-, 12b7 0ttui-, lObliCtOl 
,2930bEtO0 ,b2438tt00 ,74975PtOO ,9b642ttoO ,U710EtOl 
,20b63Et0l ,2l338Et0l ,al099fctOl ,22247Etoi ,22i0bEtOl 
, 19222tt0l ,lbU9ttoi ,ib00OEtOl ,lbbl7£tyi ,14u42ttOl 
,3b290F.tO0 , lb20 Ut00-,?977U-Ol-,221U9tt00 

. 1 33bbtt01-, Ib398tt0l-, 1 73l7ttOl-,l9UOEtoi»,i07b3fct01 
,27 lb4Eto i- ,27b4btt0 l-,?7 723EtOl-,27b03ttu i-, 27420E to I 
,21 Ub2EtOl-, 1926bt40i-, I 72bbEtOl-, lbOb8ttoi-, I2722tt0l 
, 330blt4(i0 ,b04j3tt00 ,87 1 l9EtOO ,ll290ttUl il 3 749Et0l 
,2470bFt0l ,2b74Tktgi ,2bb40Et01 ,27<>bltt0l ,2737itt0l 
,24lbOEtUl ,22073ttOl ,?1417Ct0l ,l979bEtgi .iBuiaEtOl 
,bl2b2EtOU ,27b28ttoO , 56320E -0 I • , 202b2E 1 00 
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JB 10 

?ObSt^Ol»,^0 7i2t^Ol», ioi00E + O l-,5l<41?t + Ol»,32 39 0ttUl» 
••i^b03EfUl«.il /6 3ttOl«,J0S6?fct0l»,29l0lt + ul»,a737ittUlP 
U39OE*Ol-,92b«9EPOO*,6o7‘>9e4yOp,203?bC +00 ,U9l0Ot-Ol 
•10926t+Ol ,2lS2bt^01 ,239l7tt01 ,2b077fcf01 ,2?906t*Ol 
,3ib27t^ui ,33‘4i9t^oi ,53021t^yl ,i?iyu+01 ,5l307t + ui 
,20b90t401 ,lH23bh + 0l .ISbaih^Ol ,129?7h401 .lOMbt^Ol 
J« IS 

-,lO20btfOU-,u7243£+Oy-,rti6OU»yO-,l ISbbtfOl-, l5SbSt + Ul- 
-,i26b3t-f01p,349ut>t + 0l-,367S6tt0lp,iP26ftt^01-,J9a6ttt.40l» 
-,5Sba5tt01-^3dadut + 'U-,3bVbifctyi-.i«5l6bttOl-,3i038t^Ul- 
-,l49i5ttoip,ll2u2£+oi«,7ab40fc^OO-,iMS9htuu ,2b729t-ul 
,223l4t^0l ,2'aub3£+rjl ,2d36U^0l ,3lU4ltt0l ,3342lfc^ul 

,4ub9U + 01 ,409jbt+0l .aubbbfctOl ,399l2tt01 , 3009bE4yl 
,2oa3!5t40l ,2347b£tul ,2032fat + ul .WOUttOl ,l3bblt401 

JB 20 

y# -,46li4E400-,9td7 5t4Cjo-,13b8 3t401-, 1 0Ob2E + U 

-,399yiEtyi.,M2^Uf4Olp,4«;s0b4Ol-,4bb24t4Olp,48O9lE4Ulp 
4 0 09 1 t4U l-,46b24fc ♦ni-,«4758t401-,425UE4fM-,J<J901E40l- 
-,10Ob2t4Ulp,13bdSt+Ol»,9ie7bt4OUp,461 34t4OO ,S0S'39tpl2 
,2bi22t401 ,3 u132E*uj .JibbSEfOl ,3b9Sot4Cl ,399yit401 

,49707E4O1 ,SOOUOt4Ul ,a97b?b4Ul ,49l49t40l ,4809lt4Ul 

,3360ife4O| ,3oli2E4(M ,2b522Et01 ,222h7f + t)l ,l0O62fc4Ol 


, li07OttO|p, l042bL4Ol«,?Oe39t4Ol-,2iO93fc4Ol*,25l7lt4Ol 
,331 l4t4Ol*,33b76t4gi«,33760E4Olp,3i60bt4Ol«,33324t4Ol 

, 2b39bt 40 I 23 10Ofc4Ol-,pu74bt 40 !•, 10 U2b40i., 15 J02t 40 1 

,37147^400 ,b9532b4g0 ,10125^401 ,13190L4O1 #191410401 
.^9630fc40l ,30995t40l ,3^072k401 ,32055^401 ,33J40t401 
,30l7iKtOl ,207070401 ,27olOt401 ,2b097L4yt ,229840401 
, 722 750400 , 42Hb9t4oO , 1 3 I bbE 4 0 g - , I ob I 0 1 4 00 

,100l704Ol-,22O2H0tol-,^SobO04O l-,27009t4U i-,30494E40l 
.4U344t4Olp,4Obb004Ol-,alO9204Ol-,4O95404Olp,4O47lE4Ol 
, 3061 90 40 1-, 2 7 92 00 40 l.,?U98b0 to 1-, 21810040 Ip, 104510401 
.414970400 ,799b4E40U ,1176^0401 ,154350401 ,189610401 
,355000401 ,372610401 ,3»609t4Ol ,397750401 ,405100401 
,375500401 ,358090401 ,339270401 ,316040401 ,291790401 
, 100020401 ,636470400 , 26 7 790 ♦ 0 0- , I 02850 4 o 0 

.2220 70 401 -,263220 40 1 -,30 1 320401 -,336850 401 -,369500 to I 
, 491490 401-, 497670401-, SOOOOEtOI-, 497870401-, 4914 90 401 
,369500 401 -, 33605040 1 -,30 1320 40 1-, 263220 40 I -,2220 70 40 I 

,461340400 ,918750400 ,i3b030tOl ,180620401 ,222870401 
,425110401 ,447580401 ,466240401 ,480910401 ,491490401 
,466240401 ,447580401 ,425110401 ,399010401 ,369500401 
,136H3F401 ,918/50400 ,4613404000, 
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Sample Case Plot: Double -Body Field 
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VII. INSTRUCTIONS FOR USE - SCALE FACTORS 


Aft6ir a coordinatG system has been generated, the **scale factors” for 
use in the solution in any partial differential equation transformed to the 
rectangular transformed plane are generated and written on a disk file by 
the main program FATCAT with its subroutine ABC, AMXMN, PARAl, PARA2, PARA3, 
and WRDATA. Instructions for use are included in the listing of FATCAT. 

Core must be set to zero at load time. 

Dimensions . The standard program allows a maximum field size of 70 g lines 
and 60 q lines and requires a core size of 201,000 words for the Langley 
Research Center's CDC 6000 Series Computer System. 

Parameters . Explanation found with the sample test data, and program 
listing. 

Files . This program requires 2 essential files: 

TAPE 1 - input tape - generated as TAPEIO by Program TOMCAT. 

TAPEIO — disk on which the factors are to be written. 
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Scale Factors 
Program FATCAT 
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PROG»*M FATC*T( I^PUT.OUTPUT, TAPF5«INPUT,TAPP6»0UTPUT, 
ITAPFIO.TAPEI ) 

********* *<TS8I83IPPI STATE 2-D CPOPOINATE TRANSFORMATION 


CnOROINATE SYSTEM 'SCALE FACTORS*! ALP« A , BET A , RAM A , 8 ICM A , T AU , 

JACOB! AN,nx/OXI,i)X/DETA, 
OY/OXI, AND DY/DETA 


OIMEWSION X(70,60), Yf7P,AO), CC10,70,60), C8(l0,70»a) 

PIMENSION Cl{e),C2(e),LBSID(6),LHl(6),LB2t8)»L8DY(65, LR8 

l(fc), LRl(fc), LR2(S), LI8IOC6), LlKfc). 112(8). LTYPE(fc), L8 En(6) 
data N<OIM,NOImi ,ndIMX /To, 60, 70/ 


THE COOHDIWATE SYSTEM IS READ FROM nTSKCTAPED IN THE SAME 
FORMAT USED BY TOMCAT TO i*<PlTE ON njSK, THE SCALE FACTORS 
ARE written Om nlSK(TAPElO) IN ONE OF THE FOLLOWING FORMATS# 
SPECIFIED BY IFORM, 

format FI CIFORm«1) 

»^RITEnO#l) Cl 
i^RITEUOil) Cl 

MRITEdO# n IMAX# JmaX,NB 8EG,NR8EC#1 ISEG#NBDY 
MRITEdO,!) (LRSIDCU #L8UL) #L B2a)il PDYf* l,t8EN(LI# 

I L»l#NB8EG) 

wRITEdOd) aR8IO(L)#LMl(L),LR2(L)#LISIO(UiLIl(L)#LI2(U# 

I LTYPE(L) #L«l # nr8EG) 

DO 2 J«l#JMAX*2 

2 HRITEdO,n ((CCN,T,Jl,N«l,lO)d«< ^IMAX-2) 

DO 1 J«l,a 

S wRiTEdO#!) ((CBIN#I#J)iN«1,10)#I»1,MAX0(IHAX,JHAX> 

THE ARRAY C CONTAINS THE FACTORS FROM THE SECOND POINT TO THE 
PENULTIMATE POINT# ON SECOND ROW TO THE PENULTIMATE ROW, 

The array CB CONTAINS THE FACTORS ON THE RECTANCOLAR BOUNDARY# 
J«l#2#J#4 IN CR CORRESPONDING# RESPECTIVELY# TO THE BOTTOM, 
left, top, RIGHT SIDES, ON EACH SIDE THE POINTS RUN FROM i TO 

either imax OP jmax# as appropriate, 

FORMAT i? (IF0RMB2) *** 

wRITEdO#n Cl 
wRITEdO#!) C2 

WRITE do# n Imax,JMAX,NB 8EO#NRSEC#LI8E6#NBDY 
WRITE (10 #1) (LBSID(L)#L81 a)#LB2(L)#LB0Y(L) iLSEN(L)# 

1 LB1#NS8E0) 

WRITE CIO# 1) (LR8ID(L)#LRl(L)#LR2a)#LI81D(L)#LIl(L)#LI2(L)# 

1 LTYPE(L)#L*1#NRSEG) 

DO 2 JB1#JMAX 

2 wRXTEdO#!) ( (C(N,I, J),N«1 , 10 )#!b 1 #|MAX) 

THE ARRAY C CONTAINS THE FACTORS FROM THE FIRST POINT TO THE 
LAST POINT# ON THE FIR^T ROW TO THE LAST ROW, 


1 

2 
5 
a 

5 

6 
7 
9 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
12 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

48 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

ss 

S6 

ST 

SB 

19 

60 
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*** **• 61 

62 

THf FACT0H8 C06PESPONO TO Thf TNO^X m *5 FOLLOi-Sl 65 

bU 

I JAC0RI*M 65 

M«2 I ALPHA 66 

Np3 I beta 67 

I Gamma 6® 

Np5 I SIGMA 69 

NP6 t TAU 70 

N«7 I DX/DXI 71 

NpB I DX/DFTA 72 

Nip9 I t)Y/0XI 73 

M«10 J.GV/OETA 7« 

75 

77 

** CARD I IWRTI , ImRTZ.IFORm . F0RmaT(115) 78 

79 

IMRTl • BO DON'T PRINT COORDINATE SYSTEM FROM «HICH 80 

factors are CaLCOL*TFO. 81 

>0 PRINT coordinate system, 82 

83 

IMRT2 - aO DON'T PRINT FACTOhS, 8U 

>0 PRINT factors, 85 

86 

IFORM • file storage FORMAT CONTROL, tSEE ABOVE) 67 

88 

AAAA**************************************************************** 8P 

90 

READ INPUT DATA 91 

92 

MRITE(6» 180) 93 

Nlal 9U 

REMIND N1 95 

READ C5*110) HRTl , IWRT2, IFORM 96 

MRITE (6,150) IMRTl , IWRT2, IFORM 97 

IF (1F0RM,LT,1 ,0R,IF0Rm,DT,2) mRITE (6,170) 98 

IF (IF0RM,LT,1 ,0R,IF0Rm,GT,2) stop 1 99 

100 

READ coordinate SYSTEM 101 

1 02 

read (Ni,ion Cl iu3 

read (N1,101) C2 loa 

read (N1,110) IMAX, JMAX,NBSEG,NH8EG,L1SEG,NBDY 105 

ITE8TaIMAX»2 106 

JTE8TaJMAX-2 107 

IF (1F0RM,EQ,2) ITESTalMAX 108 

IF (IFORM, EG, 2) JTESTbJMAX 109 

IF (ITE8T,CT,NDIM) WRITE (6,130) UO 

IF ( JTE8T,GT,N0IMl ) WRITE (6,U0) 111 

IF (ITE8T,CT,ndIm,0R,JTE8T,6T,ndIMI) STOP 2 412 

IF (MAXOdMAX, JMAX) ,GT,N0IMX) WRITE (6,160) 113 

IF (MAXOdMAX, JMAX) ,GT,NDIMX) STOP 3 UR 

READ (N 1,102) (LBSID(L),LRl(L),LB2(L),LBDY(L),LSEN(L),Lal,NBSE6) 115 

READ(N1,103) (LR8ID(L).LRia),LR2(L),LT8IDrL),LIl(L).LI2(L), 116 

lLTYPI(L),Lal,NRSEG) 117 

REAO(Nl,lOa) ((X(I,J),Ial,IMAX),Jal,JMAX), ((Yd,J),lai,lMAX), 118 

Up1,JMAX) 119 

C 120 
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r PHINT L^ntL J 2 J 

C 1 22 

-“RITE (6,100) Cl 125 

-pITE (6, inn) C2 12« 

"RITE (6,120) 125 

f 126 

r calculate Factors 127 

c 128 

JMXM 1 ■ A !(• 1 J2«» 

IMXPieI“AX-l 130 

►'PIMX»«AXn ( I M* X , JMiX ) 131 

IMXM2«Th*x-2 152 

JMXM2«JMAX-2 153 

CALL AB(; (C , X , Y , ^ niP , I " AX , J«AX , T^'X^'l , ,TMX^,l , T"RT2, »yW8ER,L I8EG,C8, LB 13a 
lSI^>,LHl,LB^,LBny,LR8T^,LRl,LP2,LISIn,LI1,LI^,LTVPF,LSFN,^Dlwx,^BSE 135 
^C,^DIB1) 13<, 

^ 157 

r PMI^T X ANr> y FIELOS 136 

C 139 

IF n^RTl.EQ.O) GO TO 10 1«0 

call "RDATA (X, I^'AX, J“aX, 1 ,2,NDIm) 1 <4 1 

CALL "RDATA CY, I^AX, J«AX,3,U,M0Ti-) 142 

la3 

"RITE Factors to gisk ma 

IU5 

10 GO TO (20,50), IFORM 146 

l«7 

**• E0RM4Y •! 

ia9 

20 "RITE(10,10D Cl 150 

"RITE(10,101 ) CP 151 

"RITE ( 1 0, 1 1 0 ) IRAX, Jmax,N08EG,NR8CG,LI8EC,nBDY 152 

"RITE (10,1 02) (L88ln(L),LBl(L ) , LB2 (L ) , LBOY (L>,L8CM(L),L»1 ,>yBSEG) 153 

"RITE(10,103)(LR8ID(L),LRl(L),LR2(L),LiaiO(L),Lll(L),Ll2(L), 159 

lLTYPE(L),L»l,'yR8EG) 155 

on 30 J«1,JMXM2 m 

50 "RITE ( 10, 1 09) ( (C (“y, I , J) ,N«1 , 10) , I*1 , IRXM2) 157 

0090Jal,9 126 

90 ARITE (10, 109) ( (C8(N, I , J) ,N«1 , 10) , I»1 ,RD!MX) 159 

STOP 0101 IfcO 

161 

•*A FORMAT «2 AA* lfc2 

163 

50 "R1TE(10,101) Cl 169 

"RlTE(10,10n C2 165 

"RI7E(10,110) IBAX, JHAX,N08FC,NR8€G,LI8EC,NBOY 166 

"RITE (10,1 02) (LBSIO(L),L01 ( L ) , LR2 (L ) , LBDY (L ) ,L8EN (L ) , Lai , NB8EC ) 167 

"RITE(10,103)(LR8in(L),LR)(L),LR2(L),LISir>(L),Lll(L),L12(L), 168 

ILTYRE(L),LR1,^JR8EG) 169 

DO 60 JJ«1,JHXM2 170 

DO 60 II«1,IHXM2 171 

DO 60 N61,10 172 

JJJaJMXMl-JJ 17J 

IIlBlMXMi.n 179 

JaJMAX.JJ 175 

lalMAX.II 176 

60 C(N,r,j).C(N,lll,Jjj) 177 

00 70 1*1,IMAX 178 

00 70 B«l,10 179 

c(N,i,n«cB(N,i,n 160 
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70 1«1 

DO pc J«2,JMXMl 1C? 

DO PO M«l,10 183 

C(N, If Jl-CBt'' ,J,2) 18U 

eo C(N, IM*X, J)«CP{^f J,a) 165 

00 90 J^lfJMAX 188 

90 k»BITE(lO, lOU) ( CC T , J) ,N«1 , 101 , 1«1 , T^^iXI 167 

STOP 0102 168 

C 1 69 

100 PORMiT (1X,S*10) 190 

101 PORM*T(e*10) 191 

102 P0Rw*T(5I5) 192 

103 F0RM*T(715) 193 

109 PORMATtflElfc.B) 190 

110 PORMAT (1615) 195 

120 FORHiT (*0PIELD I I^AX ■* , 1 0 , 5X , * J^«*X ■*,?«) 196 

110 format (*0-*-»» error 10X,*ImAX Ton LARGE, INCRf.ASE*i* NOI« 197 

I ANiD FIRST DIMENSION OF X,T AND SECONn OI^ENSTON OF*,* C ,*) 198 

lao format (*0---« ERROR lOX, *JMAX TOO LARGE, INCREASE*,* NOJM 199 

II AND second dimension of X,Y AND THIRD*,* DIMENSION OF C, *) 200 

150 format (*0INPUT I IWRTU*, I2,5X,*1*RT2**, I2,5X,*IFORM«*, 12) 201 

160 format (*0.>.». error •-••-*, 1 ox, *MAXI mum OF IhAX AND JMAX muST*,* 202 

1 NOT BE GREATER Than SECOND DIMENSION OF CB, INCREASE THIS*,* DIME 203 

2N8I0N*/ 20U 

3* AND NDIMX IN DATA STATEMENT,*) 205 

170 format (*0----- error - — -* , 1 0 X , * IFORm ‘^UST be 1 OR 2,*) 206 

180 FORmaTCIHI//) 207 

c 208 

END 209 

210 

211 

212 

213 

SUBROUTlNf ABC (CF , X , Y, NDIM, IMAX , JMAX , Jm^mi , JMXM 1 , 1 WHT2, nRSEG, 2l« 

ILISEG,C,LB8ID,LB1 ,LB2,LRDY,LRS1D,LR1 ,1 R2,LI3I0,LI1,LI2,LTYPE, 215 

2 L8EN,NDIMX,NB8EG,NDIMn 216 

C 217 

C ************************* SCALE FACTORS ***************************** 218 

C * 219 

C •****•**•. ************A********************************************** 220 

C 221 

DIMENSION X(NDIM,n, Y(NOIM,l), CF ( 1 0 , NDI m , NOIM 1 ) , C ( 1 0 , NO I mx , 9 ) 222 

DIMENSION LBSID(l), LBl(l), LB2(1), LBDY(l), LRSIDm, LRl(l), LR2 223 

1 (1), LlSIOtn, LlKl), LI2(1), LTVPE(I), L8EN(D 229 

DIMENSION FACnO), SIDE(9) 225 

INTEGER FAC, SIDE 226 

REAL JCB 227 

DATA FAC /6HJAC0BN,6HALPHA ,6HBETA ,6H6AMHA ,6H8I6MA ,6HTAU 228 

I6MX.XI ,6HX,ETA ,6HY,XI ,6HY,ETA / 229 

DATA 81DC/6HB0TT0M,6HLEFT ,6HT0P ,6HRIGHT / 230 

231 

00 TO 260 232 

C 213 

C**«* BODY SEGMENTS ***• 239 

C 235 

10 DO 100 L*1,NB8EG 236 

IlRiSKL) 237 

IIBLB2(L) 238 

tSallAl 239 

I««I2*1 290 
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ir,0Tn*L«8ID(L) 2ai 

Gn TO (20,an,60,B03 , ICOTO 2«2 

C***» BOTTOM 2^3 

?0 CALL PARa 5 (X,y,Il ,l,NDrM,XXI,YXI,n ,XETA,yfTA,I 2au 

U. 1.11. 2. 11,5,1,1, BETA, GAMA, I GO TC.JCb.AL PM A> 2U5 

J*1 2<*6 

I-n tU7 

Jc«i 2ue 

ir»ii 2a9 

Cn.IC, JC)»JCB 250 

C(2,IC, JObaLPma 251 

Ct3,IC,.rc)«BETA 252 

C (it, IC, JC)*CAMa 253 

Ct5,ir,JC)«8IG 25a 

C(fc, IC, JC)»TAU 255 

C(T, ic, JC)«XXI 256 

C(8, IC, JC)»XETA 257 

C(9,IC, JC)«yXI 258 

CnO,IC,JC)«yETA 259 

call PARA3 (X,y,I2,l,NDrM,XXI,yxi,I2,i,i2«i,j,i2-2,l,XETA,YETA,I 260 
12, 1, 12, 2, 12, 3, -1. 1 , BE Ta, GAMA, I GOTO, JC8, ALPHA) 261 

I«I2 262 

1C«I2 263 

C(1,IC,JC)«JCB 264 

C (2, IC, JObalPha 295 

Ct3,IC,JC)B0ETA 266 

C(a,IC,JC)aOAHA 267 

Cr5,ir,JC)B8IG 268 

C(6,IC,JC)fTAU 269 

CtT.ir, JObXXI 270 

C(8,IC, JObXETa 271 

C(9,1C, JObYXI 272 

C(10,IC,JC)bYETA 273 

00 30 I«I3,I« 274 

CALL PAPA3 (X, y , 1 , 1 ,NniM,XXt , YXI , I-l , 1 ,0,0, !♦! , 1 ,XETA, YETA, 1 , 1 275 

I , 1,2,1 ,3,0, 1 .beta, GAM A, I goto, JCR, ALPHA) 276 

ICbT 277 

C(1,1C,JC)6JCB 278 

C (2, IC, JC) bALPHA 279 

Cf3,IC,JC)BBETA 280 

C(4,IC,JC)b6AHA 281 

C(5,IC, JC)b8IG 282 

C(6.IC,JC)BTAU 263 

C(7,IC,JC)BXXI 284 

C(8,IC,JC)bXETA 285 

C(9,IC,JC)BYXI 286 

C(10,IC,JC)bYETA 287 

30 continue 288 

60 TO 100 289 

LEPT 290 

40 CALL PARA3 tX,y,l,Il,NDlM,XXI,YXI,l,11,2,ll,3,Il,XETA,YCTA,l,Il, 291 

II, 11Y1,1,I162,1,1,BETA,6AHA,1G0T0,JC8,ALPHA) 292 

293 

J*I1 294 

JCB2 295 

ICmi 296 

C(1,IC, JObJCB 297 

C(2,IC#JC)bALPHA 298 

C(S.1C.JC)bBETA 299 

C(4,IC,JC)b6AMa 300 
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C(5»IC.JC)«8IG 3ni 

C(6,IC,JC)«TAU 502 

C(7,1C. JC)«*XI 505 

JC)*XETi 50a 

C(9,1C. JC)«YXI 505 

C(»0,IC, JC)«YET* 506 

C*LL P*P*5 (X,Y,l,I2,NDIH,XXl,vxi,l,r?,2,I2,5.I?,YET*,YET*,l,I2, 5u7 

11,12-1,1 , 12-2, 1 ,-l ,BET*,G*HA, IGOTO, JCP,ALPHA) 308 

J«I2 509 

1C«I2 510 

Cfl,lC,JC5«JCB 311 

C(2,IC,JC)*ALPHA 312 

C(3,1C, JC)«PETa 315 

C(«, IC , JC)«GAM* 5iu 

C(5,1C,JC)»81G 315 

C(6,IC,JC)«TAU 516 

C(7,IC,JC)«XXI 317 

C(8,IC,JC)«XETA 518 

C(9,1C,JC)»YXI 319 

C(10,1C, JC)«YETA 320 

DO 50 I«I3,ia 321 

call PARA3 CX,Y,l,I,NDIM,XXI,YXl,l,T,2,l,3,I,XETA,YFTA,l,I-l,n 322 
1 ,0, 1 ,!♦! , I ,0 ,RETA,GAHa, IGOTO, JCB. ALPWA) 323 

1C«I 32U 

C{1,IC,JC)«JCR 325 

Cf2,IC, JCHALPMA 326 

C(3,IC, JC)«BETa 327 

C (9, 1C, JC)»GAMa 328 

C(5,lC,Jn«SIG 329 

C (6, IC, JC)*TAU 530 

C(7,1C,JC)«XXI 331 

CC8,IC, JC5«XITA 332 

CC9,IC,JC)«YXI 335 

C(10, IC,JC)«YE7A 339 

50 COMTINUE 335 

60 TO 100 336 

C**** TOP 337 

60 call PARA3 f X, Y, I 1 , JMAX,N0IH,XX1, YXI, 11 , JMAX, 11*1 ,JMAX, IU2, JMAX 338 
1 ,XETA,YETA, II , JmaX,11 , JmaX-1,11 , JmaX.2,1 ,-1,BETA.GA'’A,IG0T0, JC8, AL 339 
2PHA) 340 

JUJMAX 341 

IBII 342 

JC«3 345 

ICBll 394 

cn , 1C, JOaJCB 345 

C(2,IC,JC)»ALPHA 3a6 

C(3,IC,JC)»B€TA 347 

C(4, IC, JCIvGAMA 348 

CC5,IC, JOiSIG 349 

C(6, IC, JOsTAU 350 

C(7,IC,JC)»XXI 351 

C(8,IC,JC)«XETA 352 

CC9,IC, JC)»YXI 353 

C(10,IC,JC)*YETA 359 

CALL PARAS (X,Y,I2,Jmax,NDIM,xXI,YXI,T2,Jmax,T2-1,JM*x,I2-2, JmaX 355 
1 ,XETA,YETA, 12, JMaX, I2,JM*X-1 ,12, JMaX- 2,-1 ,-l - BET A , GAM A , IGOTO , JCB , A 556 
2LPHA) 357 

I«I2 358 

IC«12 359 

cn,ic, JOpJCB 360 
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C(^,Ir,Jc)■ALPHA 

C(5»ir,JC)«SET* 

r(U,IC»JC)«GAMA 

C(5,ir, JC)«SIG 

Cffc,IC,JC)«TAU 

CC7,IC, JC)«XXI 

C(8,IC,JC)«xETa 

C(9,IC,JC)«YXI 

CtlO,IC,JC)«YFTA 

GO 70 i«i3,ia 

CALL PA»A3 tX,r,I,JH*x,KJOlK',XXT,YXT,l-l,JMAX,0,0,I + l,J(«AX,XETA 
1 »YFTA, I,JHAX, I ,JMAX»1 , I »J*'AX»?,0,«1 »HFTA,f;A>"A,lGOTC),JCB»ALPHA) 
ir«i 

C(1,IC,JC)«JC« 

C(2,tC,JC)«ALPHA 
C (3, IC, JC )«RETa 
C( a, IC»JC)«GA^*a 
C( 5, IC,v!n»8lG 
C (6, IC, JC )»TAIJ 
c(7,ic,jn»xxi 
C(p,IC,JC)«XETa 
C( 9,IC*JD«YXI 
CnG,IC»JC)«YETA 
70 COMINUE 

Cn TO 100 

migwt 

flo CALL PABA3 (X»Y»IWAX,Il,N0IH,xxi,yxT,TMAX,ll,lMAX»l,Il,lMAX»2#n 

J.XETA,VETA,rMAX,Il,IMAX,n + i,lMAX,H+2,.i.i,BETA,GAMA,iG0T0,JCB,AL 


r*iPAx 

j«n 

JC»« 

icall 

C( J ,1C, JC)«JCH 

C(2»IC, JC)«ALPma 

Cf3.IC,JC)«BETA 

C(U,IC,JC)«GAMa 

C(5,IC,JC)«3IC 

C(6,IC,JC)*TAU 

C(7,1C,JC)«XXI 

Ct8,IC,JC)«XCTA 

C(9,IC, JC)«YXI 

cno,ic, jobvcta 

CALL PARA5 (X»Y, TMAX, 12, MDJH, XXI, VXTiIHAX, 12, IHAX- 1,12,1 MAX-2,ia 

e L ^ M A ) 

JaI2 

ICaI2 

Cn.IC.JC)«JCB 

C(2,IC, JOaALPHA 

CCS.IC* JObBETa 

C(«»IC»JC)«GAMa 

C(9»IC« JC)«8IC 

C(6.IC»JC)bTAU 

C(7»1C,JC)bXX1 

c(e,ic,JC)«iXCTA 

C(9,1C,JC)BVXI 

C(10,IC,JC)ayETA 

DO 90 I«n»I<t 

CALL PARA3 (X.V.IMAX,I,N01M,XX1,VXI,1MAX,1,IMAX.1,1,1MAX-2,I,X 


361 

562 

365 

364 

365 

366 

367 
360 

369 

370 

371 

372 

373 

374 

375 

376 

377 
37ft 
379 
360 

381 

382 

383 

384 
3ft5 
386 
367 
388 
309 
390 
191 

392 

393 

394 

395 

396 

397 
39ft 

399 

400 

401 

402 

403 

404 

405 

406 

407 
40ft 

409 

410 

411 

412 

413 

414 

415 

416 

417 
41ft 

419 

420 
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lETA,VETi,IMAX,I-),0,0,I‘'iX,I*t,-Ui 

IC«I 

cn.ic»Jc)«JCP 

C (2» IC/ JC5«*LPha 

cn.ic, jc)«pfta 

CC«.IC,JC)«Gaha 

C(5,IC,JC)»8IG 

C(6,IC,JC)»TAU 

C(7,IC,JC)»XXI 

C(8. IC, JO-XFTa 

C(9,IC,Jn»YXI 

C(10,IC,JC)»VFTA 

90 CONTI^jUE 

100 CONTINUE 

c 

c***« REENTBANjT SEG^^ENTS ***» 

c 

IF (^R8EG,EQ.0) GO TO 2«5 
DO 2«0 L«lfN98EG 
I8»LR1 (L)A1 
I6-LR2CU-1 
IlRLIl (L)*l 
ia«LI2(L)-l 
IGt)T0*LTYPECU 

GO TO (110,130,150,170,190,210), 

c***A ONE ON bottom, one on top 
no DO 120 I«I5,I6 
J«1 

xxn(X(iAi , n-xoi , in*o,5 

YXlB(V(I + 1 ,n-Y(I-l,l))* 0,5 

XETA«(X(I,2)-X(I,JMXm1))*0,5 

YET*«(YCI,2)-Y(I,JMXMn)*0,5 

IlRl-1 

I2*I+1 

JlRjMXMl 

J2«2 

call PARAl (XXI8,YXI8,I2,J,I1 
lXlETA,I2,J2,r2,Jl,ll,Jl*ll.J2.X,Y 
C*LL PARA2 (XXI,YXI,XETA,YETA 
ICTA, ALPHA,GAMA,BE TA,SIG, TAli, JCH.I 
JC«1 
IC«I 

C(l,IC,JC)«JCB 
C(2,IC, JC)»ALPHA 
C(5,IC. JORBETA 
C(4,!C, JORCAMA 
C(S,IC,JC)R8!C 
C(6,1 C»JC)rTAU 
C(7,1C,JC)RXXI 
C(B,1C« JOrXETA 
C(9,IC, JOrYXI 
C(10,IC,JC)RYETA 
120 CONTINUE 
60 TO 230 

C***« BOTH ON BOTTOM 
130 DO IttO IRIS, 16 
JRI 

I1RI0.(I«X5) 

XXIR(X(I« 1 , l)>X(I»l,n)* 0.5 
YXlR(Y(l 9 l,n-Y(I»l,n)* 0,5 


,HFTA,r,A«A,IGOTn,JCe,ALPHA) <421 

U22 

U23 

U2« 

U25 

927 

928 
92 Q 
u JO 
9 31 
93? 
955 

939 

935 

936 
957 

938 

939 

990 

991 
aa^ 
4^43 
444 

IGOTO 443 

44«> 

447 

44A 

449 

450 

451 

452 

453 

454 

455 

456 


J,XETAS2YET*82I,J22T,J1#XXIETA,Y 457 
I , J,NiniM) 458 
XXIS2 Yx!S 2XETA82YETA8#XXIFTA,YXI 45 ^ 

460 


461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 
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xET*»(xn,?)-xni,2))*o,5 uei 

VFTA»(¥(I,2)-V(li,2n*0.5 aft 2 

n»i-i ues 

asu 

Ji«ii aas 

J2"2 UBb 

CALL PAR41 tXXIS,VXI8,I2,J,Il,J,XFTA8,yET*S.I,J2,Jl,J2*XxIETA, Ufl7 
1YXIET*,I2,J2.J1-1,J2,J1+1,J2,I1,J2 ,X,Y,T,J,ndIM) OSP 

CALL PaRa 2 (XXI,YXI,XFTA,YETA,XXI8,YXIS,XPTAS,YFTAS»XXIETA,VXI ae<J 
lETA,*LPH*,GAM*,RETA,SIG»TAU,JCB,I,J,NniM) a90 

JC«1 991 

IC»I 992 

C(1 ,IC»JC)»JCB 993 

C (2» IC » JC ) «ALPha 999 

C (3, IC, JObBCTa 993 

C(9, IC. JC)»GAMa 99iS 

C (5, IC, JCHSIG 997 

C(6, IC, JCIpTAU 990 

C(7,IC,JC)«XXI 999 

C(0,IC,JC)«XETa 500 

CC9,IC,JC)«YXI 501 

cno, IC, JC)«YFTA 502 

190 COf^TIMUE 503 

GO TC 230 509 

CA*** BOTH ON TOP 505 

150 00 160 I«I5,16 506 

JBJMAX 507 

n«I9-n-I5) 508 

XXI«(X(I + l,jMAX)-X(I-l,JMAXn*0,5 509 

YXl»(Y(Ul,JMAX)-Y(I-l,jMAXn*0,5 510 

XETA»fX(II,JMXMl).xfI,JMXMn)*0.5 511 

YETA«(Y( 1 1, J»^XMi )-Y{l » JBXHl) )*0,5 512 

11»I-1 515 

12-lAl 519 

J1»II 515 

J2«JMXMi 51* 

CALL PARAl (XXI8,YXl8,I2,J,Il,J,xeTA8,YFTAS,Jl,J2,I,J2,XXIETA, 517 
1 VXIETA, Jl-1 , J2, 12, J2,I 1 , J2, JlAl , J2,X, V,T,J,NOIM) 518 

CALL PARA2 (XX1,YXI,XPTA,YETA,XXI8,YXTS,XETAS,YETA8,XXIETA,YXI 519 
IETA, ALPHA,OAMA,0ETA,8IC, TAU, JCB, I, J.NOIM) 520 

JC*3 521 

ICal 522 

C(1,IC,JC)«JC8 523 

C(2,IC, JOiALPHA 529 

C(3,IC,JC)*BETA 525 

C(9,IC, JOhGAMa 526 

C(5,IC,JC)«8IG 527 

C(6,IC,JC)pTAU 528 

C(7,IC.JC)»XXI 529 

C(8,IC#JC)pXETA 530 

C(9,1C,JC)«YXI 531 

C(10,IC.JC)«YETA 552 

160 CONTINUE 533 

60 TO 230 539 

C***A ONE ON LEFT, ONE ON RIGHT 535 

170 DO 180 J6IS.I6 536 

!■! 537 

XX1P(X(2,J)«X(IMXM1,J))*0,5 538 

VXI»(Y(2,J)«Y(IMXH1,J))*0,5 539 

XETA»(X(l,jAl)-xn,J-in*0,5 590 
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yETA»(Y(i,j+n-Y(i,j-n)*o,5 5«i 

5«2 

I2«2 543 

Jl»J-l 544 

J2*J41 545 

CALL PARA1 (XXI8,YXI8,I2,J,I1,J,XFTAS,YETAS,I,J2,I,JI»XXIFTA, Y 546 
lXIETA,I?,J2,I2,Jl,Il,Jl,ri*J2»X,Y,I,J,NniM) 54 T 

CALL PAHA2 (XXI,YXI,XETA,Y£TA,XXIS,YXTS,XETAS,YETAS.XXIETA,YXI 548 
JETA,ALPH4,GA^-A,BETA,SIG.TAU,JCe,I,J,NniM) 549 

JC«2 550 

IC«J 551 

Cn.IC»JC)«JCB 552 

C(2, 1C, JC)«ALPha 553 

C(3, IC, JC)«BCTA 554 

C (4, 1C, JC)«GAMA 555 

C(5, IC, JC)«81G 556 

C(6, IC, JC)*TAU 55Y 

CfT,IC, JC)»XXI 558 

C(8,IC,JC)»XETA 559 

C(9, IC, JC)«YXI 560 

C(10,IC,JC}»YETA 561 

100 continue 562 

CO TO 230 563 

C**«* BOTH ON LEFT 564 

190 00 200 J«I5,I6 565 

!■] 566 

II«14-(J-I5) 567 

XXl«(X(2,J)-X(2,nn*0,5 568 

YXI»(YC2,J)-Y(2,im*0,5 569 

XETA«(X(l,J+n-X(l,J-n)A0,5 57C 

YETA9(Y(l,J+n-Y(l,J-in*0,S 571 

I1*II 572 

12*2 573 

J1»J-1 574 

J2»J+1 575 

CALL PARAl (XXI8,YXI8,12,J,I2,I1,XETA8,VETa8,1,J2,I,J1,XXIETA, 576 
lYXIETA, 12, J2, 12, Jl, 12, Il+l, 12, H-l,X,V, I, J, NOTH) 577 

CALL PARA2 (XXI,YXI,XET4,YETA,XX18,yXlS,XFTAS,YETA8,XXIETA, YXI 578 
IETA,ALPHA,0AMA,8ETA,81G,TAU, JCB,l,J,NniM) 579 

JCl2 580 

IC«J 581 

C(1,IC,JC)«JCB 582 

C(2,IC,JC)«ALPha 583 

CC3, 1C,JC)«BETA 584 

C(a,IC,Jn«GAM4 585 

C(5,IC,JC)a8IG 586 

C(6,IC,jn«TAU 507 

C(7, 1C,JC)»XXI 588 

C(8, rC, J09XETA 509 

C(9, IC, JC)«YXI 590 

C(10,1C,JC)»YETA 591 

200 CONTINUE 592 

00 TO 230 593 

C**«* BOTH ON RIGHT 594 

210 DO 220 JaI5,I6 595 

IsIHAX 596 

II»I4-(J-I5) 597 

XXI»(X(IMXMl,in-X(IHXHl,J))*0,5 596 

YXI»(Y(1MXM1,II).Y(IMXH1,J))*0,5 599 

XETAKXdHAX, Jfl)«X(IMAX,J»l J)*0,5 600 
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C 


vPTA»fY(I^"AX,J^1 ))#n,5 

n»iT 


2?0 

250 

2^0 

?U5 


2^^ 


250 


J1*J-1 

J2«J^1 

«'<>'IS«''^IS.I2,n.I2.j.ypTAS,VET*S,I,J2,l,Jl,xxlET*. 

C*LL PaRa? ( >('< I * YK I , XE TA , VETa , XXI8, VX 13, XFT as, yet as, XXIET a , YX I 
lETA,ALPHA,KA^A,HETA,8Tf;,TALi,jrf<,I,J,NniM) 

JCbO 


ICbJ 

cn,ic,Jc)«JCB 
C(2,IC,JC)«alPha 
C(3,IC,JC)«BETa 
c (tt, ic, Jr )»GA«A 
CC5.IC,JC)«8ir, 

C (6, 1C, Jn»TALI 
C (7, IC, JC)«XX1 
C(«,TC, JC)«xeTa 
CC9,lC,Jr)«YXT 
C(10,IC,JC)»VETA 
COMINUE 
C0^T1►JUE 

continue 
00 ?«<» 

TEH a C(N,l,n ♦ rtN,i ,25 
C(N,l,n a TEM 
C (N, 1 ,2) a TEP 

TEH a C(N,JHAX,2) ♦ CfN,i,3) 
CrN,JMAX,2) a TE»' 

C(N,1,1) a TE^^ 

TE“ a C(^,IHAX,35 *■ C(^,J^'AX ,^^5 
C(N,1max,3) a TEo 
C(N,JMAX,ij) a TE^* 

TEM a C(N, 1 ,«) 4' C(M,lMAX,n 
C(N, 1 ,«) ■ TEM 
C(N,1PAX,1) a TE« 

COMTNUE 

IE (TWRT2.EO,0) go to 290 
•“HITE {fc,5J0) 
on 250 Jal,a 


"HITE C6,laO) SIDE(J) 

IE (J.EO.l) IMAXXI a IMAx 
IF (J.E0.3) IMAXXI a IMAX 
IF(J,E0,2) IMAXXI a JMaX 
IF(J,EQ,«) IMAXXI a JMAX 
00 250 Nal,lO 

WHITE (6, 320) FAC(M), (C(N, I, J),lal, IMAXXI) 
GO TO 290 


Caaa* FIELD **a* 

C 

260 CONTINUE 

00 270 JB2,JMXM1 
JCaJ»l 
JMlaJ-l 
JPlaJ^l 

00 270 Ia2,IMXMi 
lCaI«l 
IPlaUl 


601 

602 

603 

6UU 

605 

606 

607 

608 
609 
6)0 
611 
612 
613 
619 

615 

616 

617 

618 

619 

620 
621 
622 
623 

629 

625 

626 

627 

628 
62H 

630 

631 

632 

633 
639 

635 

636 

637 

638 
639 

690 

691 

692 

693 
699 

695 

696 

697 

698 

699 

650 

651 

652 

653 
659 

655 

656 

657 

658 

659 

660 



n n o 
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xET*«O((I.JPn-X(T,J“1))*0,5 
VFT4«(Y(I,JPn-VCI»J^l))*f>.5 
XXI«CX{IPl,J)-XtIMl,J))*0,5 
Yxi»(Y(iPi, jn*o,5 

^LPP'*■XET4**^♦YFT4**^ 

BET*bXXI*XFTA4.YXI*YFT4 

G4HA»XXI**2+YXI**2 

JCHbXXI*yeT4-XET**YXI 

XX18«X(IP1,J)-2.0*X(I,J)+X(T«1,J) 

YXIS«YnP1,J)-2.0*Y(I,J)+Y(TBt,J) 

XET4SBX{I,JPn-2,0*X(T,J)+X(I,J^«n 

YET48«Yn,JPl)-2,0*Y(T,J)fYfI,JMn 

xxiET4B0,25*tx(iPi,jpn-x<i«j,JPn-x(TPi,j^in*x(iMi,jMn) 

YXIET4B0,25*(YClPl»JPl)-X(IHi,JPn-YnPl»JMl)+YfI^^l,J^n) 

DXBALPW**XXI8-2,0*PPT4*XXIETA*G4>'4*XET4S 

DYb4LP^*4YXIS-2,0*PET4*YxIETA-4G4M4*YETAS 

8iGB(ox*vxi-r)Y*xxn/jcB 
T4Ub(DY*XET4-DX*YET4)/JCP 
4B8JB4HS( JC8) 

CFCJ.IC.JObJCR 

CF(2,IC,jn»ALPHA 

CFt5*IC*JC)BBETA 

CF(U,IC»JC)bG4MA 

CF{8, ICi JC) b8!R 

CF(fc, IC, JOpTAU 

cFcr,ic,JC)pxxi 

CFC«,IC»JC)«XETA 
CF(9,IC.JC)bYXI 
CF(10,IC,jnBYET4 
270 continue 

WRITE FACTORS TO PRINTER 

IF (IWRT2.EQ.0) 60 TO 10 
WRITE (6,3005 
jwxh2bJMAX»2 
IMXM2BIMAX-2 

00 280 JBI,JMXM2 

JJBJAI 

WRITE (6,510) JJ 
DO 280 NBl , 10 

280 WRITE (6,520) F AC ( N) , (CF ( N , i , J ) , I b1 . I -XM2 ) 

GO TO 10 
290 CONTINUE 
RETURN 

500 format (*0»— • SCALE FACTORS •— •*) 

310 format (// * J «*,I5/) 

520 format (*0*, A6//(8E15,8) ) 

530 format (// * BOUNDARY*) 

360 format (//2H *,A6) 

END 


bb1 

(3fe2 

665 

66U 
665 
fe 6 h 
^67 
66B 
bt9 

670 

671 

672 
675 
67<i 
675 
^76 
677 
67fl 
679 
66 0 
661 
662 
663 
66U 

665 

666 
667 
666 

689 

690 

691 

692 

693 
699 

695 

696 

697 
696 

699 

700 

701 

702 

703 
709 

705 

706 

707 

708 

709 

710 

711 

712 
T15 
71U 

715 

716 

717 

718 

719 

720 


FUNCTION AMXMN (NOFT , A , AX , 1 , J , IX, JX ) 



r»r»oor> r> oo->r>riri r> noon 
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C 721 

C * 723 

r * NOPTbI I A A^jn AX are compared for MAXlMlM value, 72<j 

* A<0PT*2 I A AND AX are compared FOR MAXIMUM VALUE, 725 

* 726 

728 

GO TO (10,20), NOPT 729 

10 IF (a.lT,AX) go to un 730 

GO TO 30 731 

20 IF (A.GT.AX) GO TO 732 

50 AMxmmbA 731 

IX»I 734 

JX«J 735 

RETURN 736 

40 amxmmbax 737 

RETURN 738 

739 

E^'0 74 0 

741 

742 

7«3 
749 


subroutine PARAl (X1,Y1,I1,J1,I?,J2,X?,Y2,I3,J5,I4,J4,X12,V12,I5,J 745 


15,I6,J6,I7,J7,I8,J8,X,Y,I,J,nDIM) 746 

747 

******************* second derivatives ****************************** 748 

* 749 

751 

dimension X(NDIM,n, Y(N 0 IM, 1 ) 752 

*** 753 

Xl«X(Il , jn«2,0*X (I , J)aX (12, J2) 754 

vi«V(Il, J1)-2.0*Y(I, J)+Y(I2, J2) 755 

X2«X(I3, J3)-2,0*X(I,J)+X(I4, J4) 756 

Y2»Y(I3, J3)-2,0*Y (I , J)TY(14, J4) 757 

X12»0,25*(X(I5, J5)-X(I6, J6)7X(I7, J7)-X(I8, J8I) 758 

y12r0,25*(Y(I5,J5)-Y(I6,J6)yY(I7,J7)-Y(I8,J8)) 759 

RETURN 760 

761 

end 762 

763 

764 

765 

766 


subroutine PARA2 ( X X I , YX I , XETA , YE TA , XX I S, VX 18 , XET AS, YET AS, XX lET A , Y 767 


IXIETA, ALPHA,GAMA,8ETA,81G,TAU, JC8,I, J,ND1H) 768 

769 

*«**********«••**•*««« factors on re-entrant 8E6RENT8 ****•*•***■■•**« 770 

* 771 

A******************************************************************** 772 

771 

REAL JCB 774 

CAAAA* 775 

ALPHAaXETA«*2AYETA**2 776 

BETAbXXIaXETA+YXIayETA 777 

GAMAmXXI**2ayX1a«2 778 

JCBaXXlAYETA-XETAAYXl 779 

OXaALRHA*XXIS-2,0*BETA*XXlETAAGAHA«XCTA8 780 



o o r> r* o ri ri r* o o o o 
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DY»*LPH**yXIS-2,0*BFT A*YX!ET*♦G*^’**YETAS 761 

S1G«(0X*YXI»0Y*XXT)/JCB 76? 

T*U»{nY*XFT*-OK*YET*)/JCB 783 

HETUB*^ 78U 

C 785 

END 786 

767 
788 
780 
790 

SUBROUTINE PABA3 ( X , Y , I , J , NO I B , XX I , Y X T , T 1 . J 1 * I? » J2 f I 5 , J3 , X£ T 4 , r E T A 791 
I , 15, J5,I6, J6,K1 ,K?,BETA,GAB4, IGnTO,.?CB,*LPHA) 792 

793 

A************ ALPH*, beta, gamma, JACOBIAN a* A* a* A ** * A* A A *** * * * * A * * * * 79a 

A 795 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a aa a a 

DIMENSION X(NDIM,n, YCNOIM,!) 798 

REAL JCS 799 

AAA 800 

IE (Kl.EQ.O) GO TO 10 001 

xxi«.o,5A(xn3.J3)-a,OAX(r2,j2)A3.0Axni,jn)*Ki eo? 

YXI«»0,5A(YCI3,.J3)-U.0A¥(l2,j2)+3,0AY(n,.m)AKl 803 

GO TO 20 0oa 

10 XXI»0.5*CX(I3,J3)-X(I1 ,J1 )) 6o5 

YXI»0,5a(Y(I3,J3)-Y(11,JI)) 006 

20 IE (KE.EO.O) GO TO 30 007 

XETA«-0.5*(X(I6, J6)-a.0AX(I5, J51 A3,0AX(ia, jan aK2 008 

YETA»A0,5A(YtI6, J6)-a,0AY(I5, J5lA3,0AY(Ta, J«n AK? 609 

GO TO ao 810 

50 XETA«0,5*(X(I6, J6)-X(lu,jan 811 

YETA»0,5a(Y(I 6, J6)-Y(ia,jan 812 

ao CONTINUE 013 

ALPHA*XETAaa2aYETAaa 2 6ia 

BETAbXXIaXETA+YXIayETA 015 

GAMASXXI AA 2 AYXI AA? 816 

JCB«XXIaYETA-XETAaYXI 017 

RETURN 818 

019 

end 020 


021 

622 

823 

62a 


subroutine wRDATA CX, Imax, JmaX, II , I2,nDIM 025 

026 

AAAAAAAAAAAAAAAAAAAAAAAAA PRINT SOLUTION A A A A A A A A A A A A A A A A A A A A A A A A A A A A 827 

A 026 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 829 

030 

DIMENSION C00E(<O 031 

DIMENSION X(NDIM,1) 032 

DATA C0DE/6HAA XaR,6HRAV aa,6Maa YAR,6HRiY aa/ 833 

Caaaaa 639 

WRITE (6,20) (C00C(n,I«Il,I2) 035 

DO 10 Jb1,JMaX S36 

write (6,30) J 037 

10 WRITE (6,a0) (X(I,J),I* 1 ,IMAX) S3S 

RETURN 839 

C sao 
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?v 

FOWMAT 

f 1^1 .?0X,2A6//) 

30 

F 0 M A T 

(5***J»*IU5 

an 

FO»^ AT 

(«X , t AFl 1 ,5) 


F 



Mai 
Ma2 
Ma3 
Ru a 

Ra6 

Ra7 

048 

HU9 

8bO 

0bl 

053 
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SAMPLE CASE INPUT; SINGLE-BODY FIELD 


Input for Program FATCAT requires only one card and is described beginning 
at line number 76 in FATCAT listing. For the sample case computed: 

1 1 2 

Disk file 1 needed as input is TAPE 10 saved from the TOMCAT program. 



Sample Case Output: Single-Body Field 
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input I JwHTl« \ 1 i 

TEST CASE • bODY-nTTED COOHDINATE 3Y8TEH 
single bOUY I KAHman-TPCFPTZ airfoil* it POINTS 

FIELU 1 IMAX • i7 JHAX ■ iQ 

---• scale factors ---• 


J a Z 


JACObN 

•10bbOZlib-U5 .Zdl^liiTE-Oi .57V763^9E-03 , 16R22b9bE«02 

,6ia05Jfc7E-O2 ,ubl lu2BttE-02 , 25a04aS7E -02 , 948363b 1 1-03 

,60437b20E-02 ,6b746084E«O2 , 62769 707E-02 ,b 1 497322E-02 

, l0bo7I33E-0J 

ALPHA 

t t 396b! 06E -03 ,270474466-03 , b943b0 79E-0 3 ,144810446-02 

, l9blb796E-02 ,147143366-02 ,862525356-03 ,331163776-03 

, 193739596-02 , 2 1 5945826 -02 , 22425966E -02 , 2 1 7298606-02 

, 13947644E-03 

BETA 

,227501136-04 , 1 00 7 1 7286-03 ,355905296-03 ,155560956-02 

, 126919096-02 , 6539t>3 I 06-03 , 2 2 0 7 36996 -0 3 ,286673016-04 

-.140271976-02 -,199547936-02 -,248673376-02 -, 2 7 0845206-02 
-,238047736-04 

GAHNA 


,834098086-04 , 2 1 9575 326 -03 ,776641636-03 ,349084896-02 

,201462646-01 , 141227296-01 , 75390 1 2 1 6 -02 ,27 1833836-02 

,198692286-01 ,218612546-01 , 203265306-0 1 ,155801526-01 

,832158666-04 

SIGHA 

-, 129654206-06 , 150738726-06 ,312581776-05 , 320 782566-04 

,509758786-03 ,27531 0026-03 ,8734 1 1956-04 , 1 2 1 7 00246-04 

,493849086-03 ,583837976-03 ,529969326-03 ,352633146-03 

-, 1 lbt>64856-06 

TAU 

-.369573066-08 -,924947346-06 ,751153056-08 ,807799956-07 

-,883026976-07 - , 20 1 4920 46 -06 ,458 0266 76-0 7 , 3 1 3043896-0 7 

-, 127358426-07 -, 758745086-0 7 - , 42299 1 1 66 - 0 7 , 181 0 19996-06 

,543541506-08 

A, XI 

-,452884506-02 - , U 43 JObOt -0 1 25296 1 656-0 1 -,570004106-01 

-, I4l807246t00 -,U769669t400 - , 62 7 4 2 1 35 6- 0 1 -, 5991 19456-01 
, 140735166400 ,1478U4386«00 . 1 4 1 6 82 9 1 6 f 0 0 ,123044006*00 

,374673006-02 

X.ETA 

,879628506-02 , 428 I 36506-02 279202506 -02 -, 1 7 758790 6-01 

-, 107869806-01 -, 1 0701 1 706-01 - , 1 1 29 1 8256 - 0 I - , 1 2 I 24520 6-0 1 
-, 123574956-01 - , 1 2 3220 0 1 6 -0 1 -. 130371 106-01 -, 144540956-01 
,942996006-02 


•364173216-02 ,557982876-02 ,678747676-02 ,697056096*02 
•494475906-03 , 13933792C-02 ,307121406*02 •479104316*02 
.340492006-02 , 1573bi5SE*02 ,5<i6 159506-03 ,219367241*03 


.198455776*02 , 22868^206*02 , 216200086*02 ,224639756*02 
,173028966-03 ,485889546-03 , 1 03722576-02 ,156102196*02 
• 190620356-02 , 14 1 982426-02 ,587 727336*03 ,269497876*03 


,253541556-02 , 281 4662 1 E-02 . 2531 1 7426*02 ,194531306*02 
-,378301606-05 - , 80592o22E-04 *,352294096-03 *, 821747556*03 
-.243568086-02 • , 1 4936o0 3C-02 -,355693446-03 *, 102333926*03 


,992188046-02 , 1 7078s546*0 I , 222 1 7 0586*0 1 ,233142006*01 
.141317806-02 ,40091 i476-02 ,921348806*02 ,151370936*01 
,918456626-02 ,3315053U-02 ,760649346-03 , 2 1 7452526*03 


.171441466-03 ,414339936*03 .619788626*03 «656169266*01 
•331290466-05 , 262644276-04 .127565086*03 ,310538286*03 
.149767606-03 ,295435956*04 ,297155256*05 ,135216576*06 


-,945855926-07 , 224b2s636-06 ,304838706-06 *,240984416*06 
-, 105266886*08 *,990071456*08 , 6 1 3 1 92226-08 *,386417106*07 
-,370707766-07 • , 95863o68E -08 , 161267826-07 ••161550406*07 


-.980734156*01 -• 12943296E600 * , 1 48 7 1 3666 aOO *, 152659856«00 
,689060006-02 ,521721856-01 ,912366806-01 ,121420196600 

,928502156-01 ,540226756-01 .238211606*01 .104362406*01 


• .186673106-01 •, 165262906-01 -, 138679096-01 *•118323796*01 
*,129492506-01 *,135179756-01 -, 1 34294556-01 ••128759106*01 
-.158237056-01 *,148872006-01 *,793510006*03 ,559949006-02 
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Y,XI 

••79509J jai:«02 ••9<42b612<4C«02 

,6oeo394oe*o2 ,U4}e34at«o} 

.79627200E-02 -,38»«5750E«02 
-•63i732«lE-02 

V.CTA 

-,7e9J5«l5C-02 •,ib8790‘)5E«Ol 
-,«2ej9975e»01 -.39656375^-01 
.4224557UE-01 .4460654St-0 } 

.71100135E-02 


-,117790351-01 -,l5549968t-01 
.293201961-01 ,335499061-01 

-.139017521-01 -.209639561-01 


-.242191121-01 -,339590521-01 
-.271112531-01 -,135705491-0} 
,455291501-01 ,443177751-01 


-, 174206421-01 «. 149063061-01 
,399553471-01 ,35677290t-0l 

-,237591201-01 -,199149121-01 


-.404469001-01 -.446749451-01 
.231211701-02 .174113151-01 

,407192901-01 ,349149911-01 


-.100650131-01 -,302627201-02 
,296220771-01 .196552601-01 

-.136997011-01 -.104161291-01 


-.495796451-01 -.456954501-01 
,292724351.01 ,373526351-01 

•242300991.01 ,154319021-01 
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hlju 


• tjorTuf* 

j*c Ja^ 

,li99h70^7fc-US ,6U?9i9t(ifc-0a , <» U4^ai4t»0 3 

,7lH‘>43le>t-0^ -Ui? . , 23 i 7 I ‘>U9fc -oa 

,47le>1623t-J2 ,h0f>26«6BK-02 , obbB i UB2fc -t)2 , b 372 1 623f -02 

,63tjbS7«ai:-0a , I lVbb20i/t-('U , M994ft 1 92t-0b 

, I 31 1 362 7t-OU , 321 3253UE-04 , I 24 B S2 0 7 E - w 3 , 37 7 I U 390 1-03 

,2327610 7L-02 , 19021 17at-02 , 1 44 1 62 1 0t -02 , 7 7930926E -03 

, Ib2b9t>09t-O2 , 19 m4337uE-) 2 , 220 1 I 7 I 7t -02 , 23 1 20b0bt -02 

, 12 lBO99^t-03 , 31237*512^-04 , 1 3 1 1 3h 2 7 1 - 0 4 

bt r A 

-,3 7B‘J44oaE-O0 ,262 3247 6t -Ob , 32933 10 3E-04 ,l4l03067t-03 

,2O9037uofc -02 , 1 20 Ib404t-O2 , b02b 1 604E -0 3 , 1 722 3922t -03 

-, 7 7 32 1 u9ot- 03 -, 1 41 7 04.,)3t-n2 - , 2 I 3 u 329 3E - 0 2 - ,2 7 79bo22t-02 
-, 324b99iaE-04 • , 2a204 30«E -Ob , 1 I 39 0 2bbE -0 b 

G AHm A 

,190b42 72t-0b ,462 3 70 I 2E -Ob ,423l2PboE-0« , 1 72 3044 7 E -03 

,240 7644 lE-0 t ,2Ob002bbE-0l , 1 4 0 « 3 329E - y 1 , 7 U 4 7 1 90bE-O2 

, I 49b 77ebE- 0 I , I 993b7lit-(11 . 222 0*1 46 7 E - 0 1 , 2o9(j 3b 79E -0 I 

,4l32641bt-04 ,4774230bt-0b ,19yj4b4bE-0b 

SltiA 

-, 3 37 3062bE-04 - , 3 3 7 iu02bt -0 4 - , 3 3 7 3 J 6 26E - 0 4 - , 33 7 3O026E-O4 
-,3373062et-04 - , 3 3 7 3u 02bE - n 4 • , 3 3 7 30B26E-04 - , 337 30b26t-04 
-, 3 3 7 30626E-04 - , 33 7 3 O026E - 0 4 - , 3 3 7 3 0 6 2 6E - 0 4 - , 337 3O026E-O4 
-,337iJtt26E-j4 3 3 7i0d2bE-U4 - , 3 3 7 30B26E- 04 

1 AU 

,32U31263E-04 ,320il263t-04 , 3?0 3 1 2b3E -Oa , 32u3 1263E-04 

,3203126 5t-04 , 320 312 d3E-04 , 32o 3 1 2b 5E -04 , 320 3l2b3t-04 

,3203l26iE -04 ,3203l2b3E-04 , 3203 1 263E-04 , 320 3 1 2b 3E -04 

,32031263E-04 , 320 3 1 2h3E-ua . 32o 3 1 2b 3E -04 

K , A I 

-,09OOOOGOE-O4 1 721 OOoOt-02 - , 6 1 6b 0 0 0 0 E -0 2 • , 1 20 1 1 0 0 Ot -0 I 
1 bbu09bOE +00 -, 1 431 72O0E + 00 - , I 1 0 2 0 7 0 0 E ♦ 0 0 -,626600006-0 1 
, 1 21b75S(;E + JO , 1 4 I 1 i4b0t ♦ 0 0 , 1 4 »9 u 1 0 0 E + 0 0 , 1 4 39 4 7 bOE ♦ 00 
,b630ooOOE-J2 , I bbuSoo Ot -02 - , bhbO u 0 0 0 1 - 0 4 

X,£TA 

,36l59lbi'E-o2 ,2b4d39b0t-02 -, 1 6209obOE -02 - , b9 36 7 3bOE -02 

-, 12064132E-01 •,9i0664OOF-O2 • , 7 7 362900E -02 -, 6040b 350E -02 
I O4«b9b0E-01 1 I 31 31bbE-01 - , 1 2646 22 7 1 - J I - , lb020 ObOE-0 1 

-,u76b70.GOE-0i ,3ob0b4uOt-O2 , 3b 1 39 l bOE-02 

Y ,Xl 

- , I 3 7 7b 0 0 Ot -02 1 364buO Ot-02 • , 2 0 7 b 0 0 0 0 1 - 0 2 • , 207 4bO 0 Ot-02 

-,40b7OoOOt-O2 , 1 43US00OE-O2 , 0 392b 0 0 o£ - 0 2 , 1 4b330 OOE-0 I 

, 1 332db00E-0 1 ,42lbOOOOE-o2 • , b4 7 3bOOOE -02 - , I 3b 1 6bOO t-U I 
-,269lb000€-02 -• tb3bbd00E-02 1 370bOOOE-O2 
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TABLE 2 


Effect of Initial Guess on Convergence 


Configuration 

IGES: 

0 1 

2 

3 

-1 

-4 

-10 

-20 

-40 

-100 

(Fig. 

4a) 

68 

NC 

80 

NC 

NC 

NC 

NC 

— 

69 

71 

(Fig. 

5) 

75 

NC 

64 

NC 

100+ 

1004- 

70 

63 

67 

68 

(Fig. 

6) 

NC 

NC^ 

NC 

NC 

NC 

NC 

NC 

NC 

NC 

NC 

(Fig. 

7) 

NC 

NC 

NC 

NC^ 

NC 

NC 

NC 

NC 

NC 

NC 

(Fig. 

8) 

loot 

100+ 

100+ 

NC 

NC 

100+ 

100+ 

87 

84 

86 

(Fig. 

9) 

100+ 

100+ 

100+ 

NC 

NC 

1004- 

NC 

NC 

NC 

NC 

(Fig. 

10) 

99 

89 

99 

NC 

NC 

100+ 

91 

84 

82 

86 

(Fig. 

11) 

NC 

100+- 

1004- 

NC 

NC 

lOOf 

100 

93 

91 

94 

(Fig. 

12) 

NC 

NC 

NC 

NC 

NC 

100+ 

100+ 

1004- 

100+ 

100+ 

(Fig. 

13) 

NC 

NC 

100+ 

NC 

NC 

10(H 

10O+ 

100+ 

100+ 

99 


Legend: Numbers given are the number of iterations required for convergence 

to 0.0001. 

NC indicates no tendency toward convergence in 100 iterations. 

100+ indicates a converging solution at 100 Iterations. 

Notes: ^IGES = 1 gave convergence for the field shown in Figure 6. 

^IGES = 4 (Guess 3 without division by total number of boundary 
points) gave convergence for the field shown in Figure 7. 




TABLE 3 


Input Parameters for Basic Single-Body Field Used in 
Optimum Acceleration Parameter Studies 

Case 1 
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IMAX 

67 

JMAX 

40 

NBDY 

1 

IGES 

0 

NBSEG 

2 

NRSEG 

1 

LBSID 

1 

LBl 

1 

LB 2 

67 

LBDY 

1 

LRSID 

2 

LRl 

1 

LR2 

40 

LISID 

4 

LIl 

1 

LI2 

40 

R(l) 

varied 

R(2) 

0.0001 

R(3) 

0.0001 

YINFIN 

10.0 

AINFIN 

0.0 

XOINF 

0.0 

YOINF 

0.0 

NINF 

66 
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TABLE 3 Continued 


lEV 

0 

R(10) 

0.0 

INFAC 

0 

INFACO 

0 

ATYP 

ETA 

ITYP 

0 

NLN 

1 

NPT 

0 

DEC 

0.0 

AMPFAC 

0.0 

JLN 

1 

ALN 

1000.0 

DLN 

1.0 

ATYP 

0 

ITYP 

0 

NLN 

0 

NPT 

0 

DEC 

0.0 

AMPFAC 

0.0 

IFAC 

0 


EFAC 100.0 



TABLE 4 
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Input Parameters Varied for Single-Body Field Used in 
Optimum Acceleration Parameter Studies 


Case 

IMAX 

JMAX 

LB 2 

LR2 

LI2 

YINFIN 

NINF 

ALN 

IFAC 

2 








100.0 


3 








10000.0 

4 

■ 

37 


37 

37 




36 



5 

97 


B 


■ 


96 



6 


20 


20 

20 





D 


60 


60 

60 





D 






5.0 




9 





B 

20.0 




■ 

37 


B 




36 

100.0 


■ 



37 

37 

■ 

H 


36 

10000.0 

4 




B 




96 

100.0 


1 

1 

97 


B 


■ 


96 

10000.0 

4 

14 


1 

20 


20 

20 



100.0 


15 


20 


20 

20 



10000.0 

4 

16 


60 


60 

60 



100.0 


17 


60 


60 

60 



10000.0 

4 

18 






5.0 


100.0 


B 






5.0 


10000.0 

4 

20 





■■ 

20.0 


100.0 


m 






20.0 


10000.0 

4 
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TABLE 4 Continued 
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TABLE 4 Continued 




ALN 

DLN 

I FAC 

EFAC 

40 

2 

1000.0, 1000.0 

1.0, 1.0 



41 

3 

1000.0, 1000.0, 1000.0 

1.0, 1.0, 1.0 




NOTE: Blanks indicate the basic value (Case 1, see Table 3)* 
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TABLE 5 

Input Parameters for Basic Double-Body Field 
Used in Optimum Acceleration Parameter Studies 

Case 42 


IMAX 

93 



JMAX 

40 



NBDY 

2 



IGES 

0 



NBSEG 

4 



NRSEG 

2 



LBSID 

1 

1 

1 

LBl 

1 

75 

29 

LB2 

19 

93 

65 

LBDY 

1 

1 

2 

LRSID 

1 

2 


LRl 

19 

1 


LR2 

29 

40 


LISID 

1 

4 


LIl 

65 

1 


LI2 

75 

40 


R(l) 

varied 


R(2) 

0.0001 


R(3) 

0.0001 


YINFIN 

10. i 

0 


AINFIN 

-30 

.0 


XOINF 

o 

o 



YOINF 

o 

o 



NINF 

92 
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TABLE 5 Continued 


lEV 

0 

R(10) 

O 

o 

INFAC 

0 

INFACO 

0 

ATYP 

ETA 

ITYP 

0 

NLN 

1 

NPT 

0 

DEC 

0.0 

AMPFAC 

0.0 

JLN 

1 

ALN 

1000.0 

DLN 

1.0 

ATYP 

0 

ITYP 

0 

NLN 

0 

NPT 

0 

DEC 

0.0 

AMPFAC 

0.0 

I FAC 

3 


EFAC 


100.0 
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TABLE 6 

Input Parameters Varied for Double-Body Field Used in Optimum 
Acceleration Parameter Studies 


Case 

IMAX 

JMAX 

LBl 

LB2 

LRl 

LR2 

LIl 

LI2 

YINFIN 

NINF 

ALN 

IFAC 






19 

29 

65 

75 





45 


60 



1 

60 

1 

60 










19 

29 

65 

75 





44 


20 



1 

20 

1 

20 





47 











10000.0 

6 

46 











100.0 

1 










20.0 




48 









5.0 




■ 



1 


33 

43 







m 

149 


117 


1 

40 




148 






43 

107 











1 

149 










Case 

NLN 

ALN 

DLN 

IFAC 

EFAC 

54 


10000.0 


6 

10.0 

53 


10000.0 


5 

10.0 

52 


10000.0 


5 


51 


10000.0 


4 


50 

1 


10000.0 


3 



Note: Blanks indicate the basic value (Case 42, see Table 5) 





























TABLE 7 

Optimum Acceleration Parameters for Single-Body Field: Variation of Single Quantity 


37 (IMAX Down) 1.77 68 1.85 89 
67 (IMAX Basic) 1.84 74 1.87 98 
97 (IMAX Up) 1.88 137 1.90 > 137 
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TABLE 8 

Optimum Acceleration Parameters for Single-Body 
Field : Variation of Pairs of Quantities 


(12) IMAX Up 

Amplitude Down 
1.89 : 122 

(1.90 : >122) 

( 5) IMAX Up 

1.88 : 137 

(13) IMAX Up 

Amplitude Up 
1.86 : 183 

(1.89 : >183) 

( 2) Amplitude Down 
1.85 : 81 

( 1) Basic 

1.84 : 74 

( 3) Amplitude Up 
1.86 : 114 

(10) IMAX Down 

Amplitude Down 
1.79 : 63 

(1.85 : 92) 

( 4) IMAX Down 

1.77 : 68 

(11) IMAX Down 

Amplitude Up 
1.83 : 86 

(1.84 : 83) 


(16) UMAX Up 

Amplitude Down 
1.86 : 129 

(1.90 : DIV) 

( 7) UMAX Up 

1.85 : 126 

(17) UMAX Up 

Amplitude Up 
1.87 : 147 

(1.90 : DIV) 

( 2) Amplitude Down 
1.85 : 81 

( 1) Basic 

1.84 : 74 

( 3) Amplitude Up 
1.86 : 114 

(14) UMAX Down 

Amplitude Down 
1.84 : 89 

(1.84 : 94) 

( 6) UMAX Down 

1.81 : 90 

(15) JMAX Down 

Amplitude Up 
1.81 : 139 

(1.81 : >139) 


(20) Radius Up 

Amplitude Down 
1.89 : 131 

(1.88 : >131) 

( 9) Radius Up 

1.84 : 205 

— — 

(21) Radius Up 

Amplitude Up 
1.81 : 243 

(1.88 : DIV) 

( 2) Amplitude Down 
1.85 : 81 

( 1) Basic 

1.84 : 74 

( 3) Amplitude Up 
1.86 : 114 

(18) Radius Down 

Amplitude Down 
1.80 : 185 

(1.91 : DIV) 

( 8) Radius Down 
1.80 : 184 

(19) Radius Down 
Amplitude Up 
1.81 : 176 

(1.91 : DIV) 
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(24) JMAX Up 

IMAX Down 
1.83 : 77 

(1.89 : >100) 

( 7) JMAX Up 

1.85 : 126 

(25) JMAX Up 
IMAX Up 
1.89 : 128 

(1.91 : DIV) 

( 4) IMAX Down 

1.77 : 68 

( 1) Basic 

1.84 : 74 

( 5) IMAX Up 

1.88 : 137 

(22) JMAX Down 
IMAX Down 
1.71 : 48 

(1.76 : 62) 

( 6) JMAX Down 

1.81 : 90 

(23) JMAX Down 
IMAX Up 
1.84 : 142 

(1.87 : >142) 


(28) Radius Up 
IMAX Down 
1.81 : 77 

(1.84 : 92) 

( 9) Radius Up 

1.84 : 205 

(29) Radius Up 
IMAX Up 
1.87 : 219 

(1.90 : >219) 

( 4) IMAX Down 

1.77 : 68 

( 1) Basic 

1.84 : 74 

( 5) IMAX Up 

1.88 : 137 

(26) Radius Down 
IMAX Down 
1.78 : 102 

(1.84 : >102) 

( 8) Radius Down 
1.80 : 184 

(27) Radius Down 
IMAX Up 
1.82 : 285 

(1.93 : DIV) 


(32) Radius Up 
JMAX Down 
1.82 : 117 

(1.84 : >117) 



( 6) JMAX Down 

1.81 : 90 


(30) Radius Down 
JMAX Down 
1.80 : 176 

(1.91 : DIV) 


( 1) Basic 

1.84 : 74 


( 7) JMAX Up 

1.85 r 126 
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Foimiat : 


TABLE 8 Continued 


(Case Number) Case 

Optimum Acceleration Parameter; Number of Iterations 
(Average Variable Acceleration Parameter: Number of Iterations) 

See Tables 3 -^ for values of the quantities varied. 
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TABLE 9 

Optimum Acceleration Parameter 
for Single-Body Field : Miscellaneous Variations 


Experimental Optimum 


Case 

Number 


Optimum 

Acceleration 

Parameter 


Number 

of 

Iterations 


Effect of Number of Steps in Addition of Inhomogeneous 
Term (Attraction Up) I I 


One Step 1.35 561 
Two Step 1.61 317 
Three Step 1.85 119 
Four Step 1.86 114 
Five Step 1.85 125 

Effect of Intermediate Convergence Criterion (Attraction Up) 

Convergence : -01 1.86 101 
Convergence : -02 1.86 114 
Convergence : -03 1.85 167 

Effect of Number of Attraction Lines (Basic) 

One Line 1.84 74 
Two Lines 1.83 76 
Three Lines 1.83 79 

Effect of Convergence Criterion (Basic) 

Convergence : -03 1.84 49 
Convergence : -04 1.84 74 
Convergence : -05 1.84 117 
Convergence : -06 1.89 175 



Experimental Optimum 


L»lt] 



CN ro 


^ 04 m 
-vT 


vO Osl 

■<r 'd- 


CX) 04 CTn 


O »H 04 o- 
un LO LO <t 









TABLE 10 Continued 
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TABLE 11 

Input Parameters for Coordinate System Control Demonstration of Figure 27 
IMAX = 31, JMAX = 30, YINFIN = 10, AINFIN = 0.0 
(a.) No Attraction 

(b.) ETA Attraction: JLN = 20, ALN = 10.0, DLN = 1.0 

(c.) ETA Attraction: IPT = 1, JPT = 20, APT = 10.0, DPT = 1.0 

IPT = 16, JPT = 20, APT = 10.0, DPT =1.0 

(d.) ETA Attraction: IPT = 5, JPT = 2, APT = 1000.0, DPT = 1.0 

IPT = 6, JPT = 2, APT = 1000.0, DPT = 100.0 

(e.) XI Attraction: JLN = 2, ALN = 100.0, DLN = 1.0 

(f.) XI Attraction: IPT = 5, JPT = 1, APT = 1000.0, DPT = 1.0 



Table 12. Coordinate System Control Parameters for Figures 
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Transformed Plane 


Figure 1. 


Field Transformation - Single Body 





Transformed Plane 


Figure 2. 


Field Transformation - Multiple Bodies 











Figure 4b. Alternate Single-Body Configuration 
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Figure 8. Double-Body Segment Configuration //4 
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Figure 11. Double-Body Segment Configuration #7 




Figure 12. Double-Body Segment Configuration #8 
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Figure 13, Double— Body Segment Configuration //9 














Figure 20. Initial Guess Types - Double-Body Segment Configuration #6 
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Figure 28. Example of Attraction into Concave Region 
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Figure 33. Contracted Coordinate System - Gflttingen 625 Airfoil (See Table 12 
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Figure 35. Contracted Coordinate System - Multiple Airfoil 

Coordinate line attraction to the first 10 lines around the airfoils 
with amplitude 10,000 on the body. Decay factor of 1.0 for all except 
last line, where 0.5 was used. 37 points on airfoils, 40 lines around 
airfoil. Circular boundary of radius 10 fore body chords. 
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Figure 36. Coordinate System - Triangular Simply-Connected Region. 
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Figure 38. Contracted Coordinate System - Rock (See Table 12 • 
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LIFT COEFFICIENT - 2.535494 

ORftG COEFFICIENT - 0.003946 

L!‘"T CiTEFFICIENT ERROR - -0.005103 



Figure 39. Comparison of Numerical and Analytic Potential Flow Solutions for 
Flapped Karman-Tref f tz Airfoil. No coordinate attraction. 
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Figure 42. Coordinate System - Double Cylinders, Coordinate Attraction to Cut 
Intersections 

Attraction to intersections of body contours with cut between at 
amplitude 1000 and decay factor 0.5. 31 points on each obdy. 40 

lines around the bodies. Outer boundary at 20 diameters. 
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Figure 44. Potential Flow Pressure Distribution for Double Cylinder without 
Coordinate Attraction 
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Figure 46. Potential Flow Pres 
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Figure 49, Pressure Distribution - Gottingen 625 Airfoil, 
R = 2000, a = 5“, t = 0.118 and 3.33 
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Figure 52b. Pressure Distribution and Velocity Vectors - Double Airfoil, 
R = 1000, t = 1.2 






Fig. 53. Comparison of Numerical and Analytic Solution for Deflection 
Contours for a Simply-Supported Uniformly Loaded Plate. 




APPENDIX A 


DERIVATIVES AND VECTORS IN THE TRANSFORMED PLANE 

This appendix contains a comprehensive set of relations in the trans- 
formed plane* A few relations involving x and y derivatives of the 

coordinate functions C(x,y) and r)(x,y) are also included. Since the intent 
here is to provide a quick reference only, most of the algebraic development 
is omitted. The following function definitions are applicable throughout this 
appendix : 

f(x,y,t) - a twice continuously differentiable scalar function of x, y, 
and t • 

F(x,y) = i F^(x,y) + j F^Cxjy) - a continuously differentiable vector- 
valued function of x and y. i and j are the conventional cartesian 
coordinate unit vectors. 

a = X ^ + y ^ 

n n 

6 ■ 

y - 

Dx = - 2Bx_ + Yx 

CC Cn nn 

Dy = - 23y_ + yy 

KK nn 

O = (y^Dx - x^Dy)/J 


T = (x Dy - y Dx)/J 

n n 


A-1 



A-2 


Derivative Transformations 


f = (r—) - (y ^ r ~ Yi-f )/J 

X "9x"y,t n 


(A.l) 


f = (t“) (X[-f - X f )/J 

y ^9y^x,t " 5 n n 5 


(A. 2) 


^t = ^8t^x,y ^at^C.n J ~ Vn^^9t^C,i 


J 'Vn ■ *nV'n’c,n 


f E ( ) = (y - 2y y f + y^^f )/J^ 

XX 3x2 ^ ^ 


+ t(y/y„ - yy^y^y^^ + 




f = ( ) ^ = (X ^fj-r “ 2Xj^X fp + X )/J^ 

yy jy 2 x,t ' n 55 5 n 5n 5 nn 


+ [ (x ^Yrr “ 2XpX y_ + x_^y ) (x - x_f ) 

n -^55 5 n-^5n 5 nn n 5 5 n 


+ - y„fj))/J’ (A.5) 


f ■= [(x_y + X yp)ff - x.y^f - x y f__]/J^ 

xy 5 n n 5 5n 5 5 nn n n 55 


* 'VAs ■ <Vn * Vs^'en =‘!y5%n'<%^C ‘ 


* '%V« ' <Vn V5>>'5n * Wnn'^^S “ 



Derivatives of C(x,y) and n(x,y) 



C = y /J 
X n 

(A. 7) 


S ■ 

(A. 8) 


\ ■ -''e'-' 

(A. 9) 


y ” ’‘e'-’ 

(A. 10) 

^XX 

"x'-En ■" - 'fx'-'E + «xVn>/3 

(A. 11) 

yy 

• 'Vnn Veh'^-' - 'SVn + 

(A. 12) 


■ ‘Vnn (*-13) 

- - 'Ex^e ■" VEn>/^ - 'We ^ (A.14) 

V ■ ‘Vsn + S’'SC>/'' - 'S\-'c ^ "y'-'n'''-’ 

"xy ■ ■ '"y^'En * ' ^Vy\ * «yVE>^'' 


(A. 16) 



Vector Derivative Transformations 


• Laplaclan: 

- (« f „ - + [(<*^55 - 26 Xj ^ + y\r?^yz‘r, ' 

+ (ay^j - 2Sy^^ + Yy„„)(>:„£5 - x^fn)!/-!’ «-12> 

or, 

v2f = (af,, - 26f, + yf + of + tf^)/j2 (A. 18) 

CC Cn nn n K 


Gradient : 


VJ = [(y^f^ - yjf^)i + (K^f^ - x„£5)j!/J 


(A. 19) 


Divergence : 



Unit Tangent and Unit Normal Vectors In the Plane 


In many applications components of vector valued functions 
either normal or tangent to a line of constant ^ or r\ are required. 
Similarly, directional derivatives in these directions are often 
needed to evaluate boundary conditions. These quantities may be 
obtained by trivial calculations if unit vectors tangent and normal 
to the 5 and q-llnes are available. These vectors are developed 
below. 

It is well known that the unit noi^mal to the graph of f(fc,y). 
constant is given by 


n 




Vf 


Associating the coordinate function 


n 


(n) ^ 


n(x,y) vd.th f(x,y), we have 

Vn 


vn| 


Utilizing equation (A. 19) this reduces to 

= (-y^l + x^p//y 


(A. 22) 


which is the unit vector normal to a line of constant n. In a 
similar manner the unit vector normal to a line of constant ^ is 
given by 


,(o _ 


VC 


VC 




(A. 23) 


These vectors are illustrated as they appear in the physical plane 






X F„)/*^ 

n i- 


(A. 28) 
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M) 


" ? • ? = Vi " n / 

Pt(0 “ . F = - (x^Fj + y^F2)/^^ 


Directional Derivatives 


M. 

an(n) 


M. 

3t(n) 


il 

9n(C) 


M 

9t(0 


n 


(n) 


,(n) 


n 


(O 


(O 


• Vf 


• Vf 

• vf 


• Vf 


(Yf^ - 3f^)/j/y 

(af^ - ef )/Jv^ 

C n 

- f //a 
n 


(A.29) 

(A. 30) 

(A. 31) 
(A. 32) 
(A. 33) 


Integral Transform 
Scalar Function; 

/ f(x,y)dxdy = / f(x(?,n) , y (5, n) ) | J I d^dn (A. 34) 

D D* 

Vector Function: 

Consider a vector Integral in the physical plane of the form 

I = / f(x,y) n(x,y) dS (A. 35) 

S 

where S is the closed cylindrical surface of unit depth whose 
perimeter is specified by the contour in the physical plane 
(see Figure A. 2) and whose outward unit normal at any point is 
given by n(x,y). 
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Figure A. 2. Integration Around Contour Fj 


If r = r(x,y) is the position vector describing F^^, then 

dS = (1.0) |dr| 

which implies that (A. 35) becomes 

I ^ f(x,y) n(x,y) |dr| (A. 36) 

We now wish to transform (A. 3$) to the plane. Consider |dr| : 

|dr| = /(dx)^ = v4(dO^ + 3d^dn + a(dn)^ 

- /y d^ (A. 37) 

since transforms to a constant n*-line (n = n^)* Noting that 

(nj^) 

n(x,y) » n 


becomes 


(~y^i +x^j)//y (Equation (A. 22)), Equation (A. 37) 



A-9 


Cmax 

I - / f(x(c,n,) , y(5,n,)) (x-J - y.i)dt 

Cmln X 

^max 

“ / (x,j - y^l)d5 (A. 38) 

Cmln 

where ^min and Cniax are the minimum and maximum values respectively of 
C on Note that all quantities in (A. 38) are evaluated along 

n * If the vector n(x,y) is incorporated into the function f(x,y), 

we can define the vector function f(x,y) as 

f(x,y) = f(x,y) n(x,y) 

Equation (A* 3 6) now becomes 

Cxnax 

I “ / f(C.n,) ^ dC (A. 39) 

Cniin 

which Is merely an alternate form of (A. 38). 




APPENDIX B 


PRESERVATION OF EQUATION TYPE 

When coordinate transformations are utilized as an aid in 
solving a given partial differential equation, it is imperative 
that the equation not change type under the transformation. Such 
an invariance will now be demonstrated for the transformation 
discussed in Section II. Consider the general, second order, 
quasi-linear partial differential equation 

A(x,y,f)f^^ + B(x,y,f)f^ + + E(x,y,f)f^ 

+ F(x,y,f)fy + G(x,y,f) = 0 (B.l) 

where f = f(x,y) is a twice continuously differentiable scalar 
function and A, B, C, E, F, and G are continuous functions. Recall 
that the equation type is determined by the coefficient functions 
A, B, and C as follows: 

Elliptic if B^ - 4AC < 0 

Parabolic if B^ - 4AC = 0 

Hyperbolic if B^ - 4AC > 0 

Utilizing equations (A.l), (A. 2), (A. 4) - (A. 6), and (A. 7) - 
(A. 10) of Appendix A, equation (B.l) transforms to 

A*f^^ + B*f^ + C*f + E*f^ + F*f + G* = 0 (B.2) 

KK Cn nn C n 


B-l 



B-2 


where : 


A* H A? 2 + BC 5 + Ci ^ 

y y 


B* = 2AC n + B(5 n + C n ) + 2CC n 

X X X y y x' ^y y 


c* = An 2 + Bn n + Cn ^ 
X X y y 


E* H A? + B5 + C5 + EC + FC 
XX ^xy yy x y 


F* H An + Bn + Cn + En + Fn 
XX xy yy X y 


F* H F 


Now, consider (B*)^ - 4A*C*: 

(B*)2 _ 4A*C* = [2AC^n^ + B(C^ny + n^Cy) + 2CCyny]2 

- A(AC^2 + + CCy2)(An^2 + + Cny2) 

= (b 2 - 4AC)(Cj^ny - Syn^)2 
= (b2 - 4AC)/j2 

Since j2 > 0, B^ - 4AC and (B*)2 - 4A*C* are either both positive, 
both negative, or both zero. This implies that (B.l) and (B.2) 
have the same type. 



APPENDIX C 


PRESERVATION OF INTEGRAL CONSERVATION RELATIONS 
IN THE TRANSFORMED PLANE 

It is now shown that the divergence property is not lost in 
the transformed plane. Let F(x,y) be a vector valued function 
defined on the physical plane (Region D in Figure 1) whose component 
functions, Fj^(x,y) and F 2 (x,y), are continuously differentiable 
on D. Let S(x,y) be a continuously differentiable function on D 
and suppose F(x,y) and S(x,y) are related by the partial differential 
equation 


V • F = S 

Integrating (C.l) over an area RCD, we obtain 

/ + (Fo)„]dxdy = / Sdxdy 

R ^ ^ ^ ^ R 


(C.l) 


Application of Green’s Theorem to the integral on the left yields the 
conservation relation 


^ (F dy - F_dx) = / Sdxdy (C.2) 

C R 

where C is the boundary curve of Region R taken in the proper 
direction. In a physical sense the line integral represents a 
flux through the boundary of R, and the integral over R a source 
within R. 

Now, in the transformed plane (C.l) becomes 


C-1 



C-2 


1 

J 






But also note 


<Vl - Vz>t ^*5^2 ■ ''5^1>n ■ 


+ ‘>'cn'’l ■ ’‘tn’’2l 


^ t=‘5„^2 - y(r,V 


which, since the last two terms cancel, Implies that (C.3) becomes: 

Integrating over the area R* in the transformed plane and applying 
Green’s Theorem as before yields the relation 

f [(y F, - X F )dn - (x F - y F )d?] = / SJd^dn (C.4) 

C* ^ ^ ^ ^ ^ ^ ^ R* 


where C* is the boundary curve of R* (R* and C* are the images 
of R and C respectively). To see that (C,4) expresses the 
conservation relation in the transformed plane parallel to that 
expressed by (C.2) in the physical plane, consider calculating 
the components of F normal to lines of constant 5 and n. Utilizing 
equations (A. 26) and (A.2iS) we have 

F • = (x^F 2 - y^F^)//r 

F • = (y^F^ - x^F2>/4' 



C-3 


Let r be the position vector describing the points along the curve 
C*. Then, utilizing conventional techniques, 

I dr I =» /y(dC)2 + 3d^dn + o^dri)^ 

Along a line of constant n we have 

|dr|^ = /y dC 

and along a line of constant 5 

|dr|^ = »^ dn 

Thus, the flux across a line of constant n is 

l ’ l^nln " ^^^^2 ~ 

and across a line of constant 5 becomes 

F • |dr[^ = (y^F^ - x^F^dn 

These are the relations appearing in the flux terms of (C*4). 

The flux terms thus have an exact analog to those appearing in 
(C.2). Hence, the conservative relation (C,4) in the transformed 
plane expresses conservation in the physical plane over the non- 
square area formed by intersection of the curvilinear ^ and n 
coordinate lines in a manner which is precisely equivalent to 
the conservation expressed by (C.2) over the square area formed 
by the intersection of the x and y coordinate lines. 




APPENDIX D 


FINITE DIFFERENCE APPROXIMATIONS IN THE TRANSFORMED PLANE 


This appendix contains a compilation of the second order finite 
difference expressions used to approximate partial derivatives in the 
transformed plane* Computational molecules for the derivative approximations 
appear to the right of each expression given. Combined difference forms 
for the transformation parameters a, 3> o, and t are also included 

here. Since the field step size is immaterial in the (C>n) plane, it 
is taken as unity for all approximations and does not appear explicitly. 

The following definitions are used throughout this appendix: 

f=f(^,Ti) - a twice continuously differentiable function of 5 and 

n* 

x=x(5,n) - coordinate transformation function defined by Equation 
( 13 ). 

y=y(5,n) coordinate transformation function defined by Equation 
( 13 ). 

ct, 3, Y» d, a, and t - transformation parameters defined 

in Appendix A. 

In addition the following notational convention is utilized to indicate 
the position at which functions and derivatives are evaluated in the 
discrete (5,ri) plane: 
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Derivative Approximations 


First derivative, central differences; 




where 


= ^i+l,j ■ ^1-1, j 

<Vi.j 

" -i/2 

n i»j 

where 

n i>j 

- ^i,J+l " 


First derivative, forward differences: 




n i » j 


(-f 


i+2,j 


(-f 


i,j+2 


+ 4f 
+ 4f 


i+l,j 

lJ+1 


3fi j)/2 

3f,^j)/2 


Second derivative, central differences: 


^^55^1, j ~ ^1+1, j " ^^iJ ^1-1. j "" 




<Vl.j ^ 


where 


i 


(D.la) 




(D.lb) 


(D.2a) 


(D.2b) 




(D.5) 


(D.6) 


(D.7a) 
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^1+1, j+i " 

^1+1, j-1 ^1-1, j-1 ■ Vl,j+1 

(D.7b) 

Transformation Parameters 

“ij ” “1./* 

(D.8a) 

where 


“i.j ^ 

(D.8b) 



h.i - 

(D.9a) 

where 


* <nh.iKh,i 

(D.9b) 

where 


^±.3 “ -<1.3"' 

(D.lOa) 



''i.J ° 

(D.lOb) 




(D.lla) 

where 



(D.llb) 



°1J “ 

(D.12a) 


where 



(D.12b) 



-4 


- » • 


t’ J1 


±,i ±,i 


where 




and where 


(Dx') . = a' ^(x' ). . - 2B' ^(x’ ). . + y' ^(x' ). . 

i>j i»j KK ifj i»j Cn l,j 1,3 nn i,j 




(D.13a) 


(D.13b) 


(D.14a) 


(D.14b) 



APPENDIX E 


CONTOUR PLOTS 

This appendix presents a detailed discussion of the methods used 
to determine contour plots of a function defined in the plane. 

The numerical procedures which are used to transform the contour to a 
physical plane representation are also covered. 


Determination of Contours in the g,ri Plane 

Let <(> = be a function defined in the region D* (Figure 1) 

possessing continuous second derivatives. Since D* is closed and 
bounded, let m(<{)) = min {<|)(C,ri) 1 D*} and H max {<K5»n) 1 

I?,n]e D*}. If $ is a number such that m(«f) ^ then we define 

the ^-contour of as the set 

I [5,n]e D* and <f>(C,n) = 

Graphically, C^(«I>) is the curve created by the intersection of the graph 
of 4>(5,n) and the plane (K^,n) = For plotting convenience the curve 
is usually projected onto the (5»n) plane. These ideas are illustrated 
in Figure E.l. The contour, C^(4>), is also often referred to as the 
level set of <KC>n) through • 

Now suppose that Is known only in a discrete fashion. That 

is, let the net function <{> , = be known on the discrete set 

D** " I - i-1 for 1 £ i £ IMAX and Hj = j-1 for 1 £ J £ JMAX} 


E-1 




E-2 



Figure E.l. Contour - $ of <J>(C,n) 

(The fact that ((> may only be an approximation to ((>(5 ,n ) is im- 
material to the current discussion). If similar deflntions for m((J)) 
and are made for . on the set D^**, then the ^-contour of * 

i.J 

denoted C^(4>) again, can be defined as 

C.pCfl') = 1 OlTfc - JMAX-1; 

~ k=l,2 N; N ^ 2} 

The bars over and 4’ are to indicate that may not be an 

element of D** and that 4> is not necessarily one of the values of the 
net function 4> . This is readily apparent from the discrete analog 

to Figure E.l given in Figure E.2. 
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<!> 


l.j 



n . 

J 


Figure E.2. Contour of 4>(C^»nj) 

Numerically, the import of the above discussion is that interpo- 
lation between the points of the discrete set D** is required to deter- 
mine C^(4>). Consider a portion of grid D** as shown in Figure E.3a 
where 1 £ II < 12 IMAX and 1 J1 < J2 £ JMAX. Each grid block is 
labeled by the (i,j) coordinates of the lower left hand corner of the 
the block. Block (m,n) is shown on a larger scale in Figure E.3b. 

In order to improve the plotted resolution consider subdividing 
each block into four triangles, as shown. The value of at (m + ^, 
n + >s) is taken as the four point average 

m + %,n + h ^^m,n ^nrfl,n ^m,n+l ^m4-l,nrH 
A local (5,n) coordinate is affixed to each grid block as demonstrated 
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(m,n+l) (m+l,n+l) 



i=Il i-12 (ni,n) 5 (m+l,n) 

in I n 

a) b) 

Figure E.3. Sample Grid in Set D 


In Figure E.3b. In order to standardize the Interpolation procedures, 
a local (CiP) coordinate system is also placed on each of the sub- 
triangles as illustrated in the series of drawings given in Figure E.4. 



Figure E.4. Local Coordinate Systems for Triangles 

Interpolation is carried out on each of the four triangles for each grid 
block in the segment (II £ i £ 12, J1 £ J £ J2) of the set D^** specified. 
In particular interpolation is performed along each of the three sides 
of each of the triangles if the contour value, 4», lies between the values 
at the ends of the sides. Let d' be the directed distance from a given 
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triangle vertex to the point on the triangle side where the contour 
Intersects that side (denoted by®). This distance is illustrated in 
Figure E.3b for triangle ©and is defined in an analagous manner for 
the other triangles. If is the value of (|)^ j at a particular triangle 
vertex and 4*- the value of c|i, , at the other end of the side, then d 
may be expressed as 

d' = (side length) (^ - ~ ^1^ 

For example, along side 1-2 of triangle©, d' is given by 

H-2 ' - W.n> 

Noting that the sides of the triangle have lengths 1.0, 1.0//2, and 
I.O// 2 , the contour intersections can be expressed in the local triangle 
coordinates as 


Side 

ii 


1-2 

1-d 

0 

2-3 

d/2 

d/2 

3-1 

(l+d)/2 

(1-d)/ 2 


where d H (* - ♦j^)/(4>2 “ ^j^) and where 1=1, 2, 3, or 4 denotes the triangle 
number . 

Once the contour Intersections have been determined in the local 
triangle coordinates, (Cj^,Pjj^), they must be transformed to the grid 
block coordinates (E ,n ). This is done in the conventional fashion 

ID ^ II TQ y IX 

using orthogonal rotation matrices. If [? p. ] are the coordinates 

*-»?» *'»P 

of an Intersection in triangle 1, then 
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’Jt.P 


A.P 


where 


Ai . 


A3 = 


1 0 

0 1 

-1 0 
0 -1 


^2 = 


. A^. 


0 1 

-1 0 

0 -1 

1 0 


Note that up to three contour intersections can occur for each triangle 

(l.e., one on each side). Finally, the point [ (C )„ . (n ) 1 

m,n'«.,p* '• 'm,n'^i,p^ 

is transformed to (C,n) coordinates by a simple linear transformation 
producing an element of the set C3.($). 

Transformation to the Physical Plane 

Since contours in the ( 5 ,n) plane are of little interest, C^($) 
must be transformed to the physical plane. This is made possible 
through the use of the coordinate transformation functions x(C^,n.) 
and y(?^,ri3). Again Interpolation is required since almost all elements 
of C^('t) are not elements of D** on which the discrete functions x(C^,rij) 
and y(^^,nj) are defined. As Illustrated in Figure E .5 this implies 
a double linear interpolation must be performed. If [fj^, denotes 
an element of C.j,($), the first step is to locate the 5 and p values 
bracketing and Denoting these by and as shown 

in the figure, the values of and yj^ are calculated as follows 


\ . Mj) + Xj 





K 

Figure E.5. Interpolation for x and y 
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